[marcoszorrilla]

Código Delphi [-]
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if key = #13 then
 button1.Click;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage('Desde el edit1.');
end;

Un Saludo.