[aqula]

Пишу типа чата. Хочу чтоб сообщения из мемо посылались на Enter
А переход на другую сроку Shift + Enter как вконтакте
Написал так

Код:

procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (ssShift in Shift) AND (Key=VK_RETURN) then exit;

  if (Key=VK_RETURN) then
  begin
    Key:=0;
    Button3.Click;
    //Memo1.Clear;
    exit;
  end;
end;

Но не могу победить переход на другую строку в мемо.
Кабы очистить мемо после нажатия Enter. Может подскажете что-нибудь?