1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure machwas;
var
   i :integer;
begin
   try
      i := IntToStr(edit1.text);   //wenn edit1.text keine ganzzahl ist wird eine exception ausgelöst!
   except
       // hier kannst du jetzt was machen oder nicht
      ShowMessage('i ist keine Zahl!');
   end;
end;