Enter

[prod87]

Как сделать, что бы при нажатии клавиши Энтер весь тест из поля memo1 копировался в поле memo2?

[Volt]

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then begin
Memo2.Lines.Text:=Memo1.Lines.Text;
end;


end;

[uberchel]

Так:

procedure TGENERAL.Memo1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key = 13 then
Memo2.lines.text:= Memo1.lines.text;
end;

Что за убожество мне уменьшило репу за правильный ответ и написало непонятный комментарий "#!!!"
Кого что не устроила?

[DomiNick]

... и написало непонятный комментарий "#!!!"

В Memo1KeyPress переменная Key имеет тип Char...
А в Memo1KeyDown переменная Key имеет тип Word...

Вероятно кто-то не заметил какого типа Key и имел ввиду, что нужно писать #13... =\\