实在太烦了！（(100分)

格外大哥好！
小弟请教一个简单问题：
我想按一下BUTTON，然后能够在MEMO里显示
一段文字（比如下面这段）

setcursorpos(x,y);
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 );
mouse_event(MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0 );
mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 );
mouse_event(MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0 );

我就这样写程序：
BUTTON1.Click:
memo1.clear;
memo1.lines.text:='setcursorpos(x,y);'+#13#10+
'mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 );'+#13#10+
'mouse_event(MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0 );'+#13#10+
'mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 );'+#13#10+
'mouse_event(MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0 );';
如果文字短还不是问题，如果文字很长的话，每句后面都要加+#13#10+，
实在太烦了！（因为文字加入MEMO里需要一定的整齐和换行）

请问各位大哥可有什么好方法？

注：程序里有同样功能的BUTTON好几个（功能相同，添加的内容不同）

Easy!
首先设置一个string变量s
s:=#13+#10;
再得出lines的行数，就OK了

一行一行添加不就更好.
memo1.lines.add('strings');

麻烦楼上大哥给出具体代码，谢谢！

如果是现成的大量的文本，最好是做到资源文件里面

to ：wmsoft:一行一行添加 不是更麻烦吗？
to ：一个过客:请详细说明，好吗？

谢谢！

如果你的文字是有规律的, 用循环来做.
如果没有规律的, 用什么都麻烦.

这么多高手，就没有办法了？
我不相信！

我刚在自由论坛看到此问题
现在才知理解不深
呵呵
如过客
用资源吧
或者自己写个程序
把原来的文本，自动加上Return
再copy到编辑器中

接受答案了.