Wie wäre es StrToIntDef. Dann werden alle Texteingaben auch gleich abgefangen:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
Gewicht := StrToIntDef(EGramm.Text, 0); // Ein Brief mit KEINEM Gewicht wird es wohl nicht geben
If Gewicht = 0 Then
begin
ShowMessage('Bitte geben sie einen Wert ein') ;
exit ;
end
[...]
end;