miten tarkistan edit:istä onko siinä....

OnKeyPress tapatumalla voit lukea kokaisen
merkin joka näppikseltä painetaan.

TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key in['0'...'9'] then
begin
//lauseet
end else
begin
// lauseet
end;
end;