[b]procedure[/b] TForm1.Edit1Change(sender: tobject);
[b]var[/b] i,x: integer;
[b]begin[/b]
[b]if[/b] isNaN(Edit1.Text) [b]then[/b] exit;
[i]// hier rechnen[/i]
[b]end;[/b]

[b]function[/b] isNaN(s: [b]string[/b]): boolean;
[b]var[/b] i: integer;
[b]begin[/b]
result:=false;
[b]for[/b] i:=1 [b]to[/b] length(s) [b]do[/b]
 [b]if[/b] pos(s[i],'0123456789')>0 [b]then begin[/b]
  result:=true; break;
 [b]end;[/b]
[b]end;[/b]