Enter

[Sh.I.Va]

if key=chr(13) then begin
button2.Click;
Вот этой операцией отправляется из мемо в текстовый файл, при нажатии клавиши Enter.
Но потом текст начинает печататься с новой строки и там образуется лишняя строка сверху. Как только не пробовал. Помогите пожалуйста.

[Пепел Феникса]

begin
 Key:=0;
 button2.Click;

[Sh.I.Va]

procedure TForm1.Memo2KeyPress(Sender: TObject; var Key: Char);
begin
if key=chr(13) then begin
button2.Click;
end;

Куда мне это вставить?
begin
Key:=0; <- Он на это ругается, кстати что это означает? Приравнивание клавы к 0?
button2.Click;

[Sciv]

if key=chr(13) then begin
  Key:=#0;        
  button2.Click;
end;

Вероятно, Пепел Феникса имел в виду это?