//程序代码:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Memo1: TMemo; procedure FormCreate(Sender: TObject); end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);begin Memo1.Clear; with Memo1.Lines do begin Add(LoadStr(0)); Add(LoadStr(1)); Add(LoadStr(2)); Add(LoadStr(3)); end;end;end. //效果图:
![26153348_CZmP.png](http://static.oschina.net/uploads/img/201409/26153348_CZmP.png)