1 type
 2   TForm1 = class(TForm)
 3     Button1: TButton;
 4     Label1: TLabel;
 5     Button2: TButton;
 6     procedure Button1Click(Sender: TObject);
 7     procedure Button2Click(Sender: TObject);
 8   private
 9     { Private declarations }
10   public
11     { Public declarations }
12   end;
13 
14   WList = record
15     Cone   :String;
16     Ctwo   :String;
17     end;
18   wMyList = ^WList;
19 
20 var
21   Form1: TForm1;
22 
23   MyList  : TList;
24 
25 implementation
26 
27 {$R *.dfm}
28 
29 procedure TForm1.Button1Click(Sender: TObject);
30 var
31    Rows :wMyList;
32 
33 begin
34    MyList := TList.Create;
35    new(Rows);
36    Rows.Cone   := '神奇';
37    Rows.Ctwo := '魔力';
38    MyList.Add(Pointer(Rows));
39 end;
40 
41 procedure TForm1.Button2Click(Sender: TObject);
42 var
43    Rows :wMyList;
44 begin
45    if MyList = nil then
46    begin
47      exit;
48    end
49    else
50    begin
51      Rows:= wMyList(MyList.Items[0]);
52      Label1.Caption := Rows.Cone + Rows.Ctwo;
53    end;
54 end;