[lucasarts_18]

Hola:

No sé si será la forma correcta, pero podría salvarte por ahora.

Código Delphi [-]
 procedure TForm1.Edit1Exit(Sender: TObject);
 var
   teclas : Integer;
 begin
   try
     teclas := StrToInt(edit1.Text);
   except
     ShowMessage('Solo se permiten numeros');
   end;
 end;

Hasta Luego.