procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  ShowMessage('Tecla pulsada: '+inttostr(ord(key)));
end;

No olvidar poner la propiedad keypreview del form a true.

procedure TForm1.Button4Click(Sender: TObject);
var
  aux : char;
begin
  aux:=chr(VK_RETURN);
  FormKeyPress(sender,aux);
end;

VK_RETURN es el codigo del enter, para la lista completa, busca en la ayuda del Delphi.

Anonimo (02/08/2005, 21:16) ??????????