für was soll dir prüfung denn sein?
um zu überprüfen, ob das zeichen überhaupt in eine integer, real o.ä. variable gelesen werden kann?
Dann würde ich try & except benutzen
Delphi-Quellcode:
try
integervariable := strtoint(edit1.text);
except
showmessage('Bitte nur zahlen eingeben');
end;