[Страдалецъ]

Код:

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

А зачем вам отдельный сколбар? В ричедитах и мемо есть же возможность включить их.