Hola Rockin.
Gracias por tu ayuda.
Este es el código. Me ha ido perfecto.
Código Delphi
[-]
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
If Key<>#13 then Exit;
If Edit1.Text='adios' then
Showmessage('Hasta la vista');
Edit2.SetFocus;
end;
end.
Repito muchas gracias.
Saludos Manuel