validacion de edit

[beginner01]

saludos.


prueba de esta manera.

Código Delphi [-]
//evento onKeyDown del edit
procedure TForm2.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin

 if Key=13 then
 begin
 ShowMessage('se ha presionado la tecla enter');
 end;

end;

//evento onKeyPress del edit
procedure TForm2.Edit1KeyPress(Sender: TObject; var Key: Char);
begin

  if (not(Upcase(Key) in[#8,#32,{'0'..'9'}'A'..'Z','a'..'z','Ñ','ñ'])) then
  begin
  Key:= #0;
  end;

end;