如何在delphi中用memo多次加文本不换行？

不知有没有类似VB中sendkey的命令。
当一行文本即一大段时，即便用memo.lines.strings[memo.lines.count-1]:=memo.lines.strings[memo.lines.count-1]+str也会很影响效率。不知有没有更好的方法。

在Delphi中用memo.lines.append或memo.lines.add总是自动换行。
希望能直接像键盘输入一样增加文本。

直接操作memo.text即可：
memo.text:=memo.text+str;

设置水平滚动棒即可（将属性“scrollbars”设置成ssboth即可）。