1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

var
zahl:String;
a:Integer;

begin

zahl:=edit1.text;                           //Der Variablen zahl wird der text aus dem editfeld zugewiesen.
for a:=1 to length(zahl) do
begin
  if zahl[a] in ['0'..'9'] then             //Die Variable Zahl wird zeichen für zeichen überprüft. 
  else
  showmessage('Nur Zahlen sind erlaubt.');   //wenn der wert keine zahl ist dann wird diese meldung ausgegeben.

end;

end;