работа с непослушным memo

[Молоток]

Дорогие форумчане. Имеется ооочень упрямое Memo. Помогите сделать его послушным. По нижеследующему коду видно, что если нажимается Enter, то текст передается на другое Memo, а с первой удаляется.

procedure TForm1.Memo3KeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then
  begin
   Memo2.text:=Memo3.text;
   Memo3.Clear;
  end;
end;

Вопрос такой: Почему остается пустая строка после того, как текст очищается?
Пробовал и вот таким методом, все равно тот же результат:

Memo3.Clear;
if Length(Memo3.Lines[Memo3.Lines.Count])=0 then
Memo3.Lines.Delete(Memo3.Lines.Count);

[SERG1980]

procedure TForm1.Memo3KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
 if key = VK_RETURN then 
  begin
   Memo2.text:=Memo3.text;
   Memo3.Clear;
  end;
end;

[mss]

procedure TForm1.Memo3KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
Memo2.text:=Memo3.text;
Memo3.Clear;
key := #0; //!!!!!!!!!
end;
end;

[Молоток]

Спасибо огромное. получилось вот таким путем key := #0;.

SERG1980 вам тоже спасибо.