[aqula]

Даже если так сделать, один раз но переходит на Enter. Второй уже нет. )) Да соглашусь - странно.

Код:

procedure TChat.RichEdit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if Key = VK_RETURN
 then begin
      if Shift = [ssShift]
      then RichEdit1.Lines.Add('')
      else begin
           RichEdit1.Text:='';
           end;
      Key := 0;
      end;
end;

есть там свойство одно WantReturns так вот у меня он был на True;
на False все как надо. )))