[aqula]

Спасибо. Та же проблема в RichEdit переходит на следущую строку.

Код:

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
      Key := 0;
           Button3.Click;
           RichEdit1.Text := '';
           end;
      end;
end;

скролбар для сообщений. там формирую сообщения в виде панелей ))