[KOOL]

Код:

procedure Edit1KeyPress(Sender : TObject; Key : PChar);
begin
  if Key=#13 then  //если нажат Enter
    Button1Click(nil);  //нажимаем кнопку
end;