[aqula]

Одна фигня. сообщение показывает а в мемо переходит на другую строчку.

Код:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Key=VK_F5) then showmessage('');// Button8.Click;
  if (Key=VK_RETURN) then
  begin
    showmessage('');
    Key:=0;
    //Button3.Click;

  end;
  if (ssShift in Shift) AND (Key=VK_RETURN) then exit;
end;