delphi Tlist 不太懂

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  WList = record
    Cone   :String;
    Ctwo   :String;
    end;
  wMyList = ^WList;

var
  Form1: TForm1;

  MyList  : TList;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
   Rows :wMyList;

begin
   MyList := TList.Create;
   new(Rows);
   Rows.Cone   := '神奇';
   Rows.Ctwo := '魔力';
   MyList.Add(Pointer(Rows));
end;

procedure TForm1.Button2Click(Sender: TObject);
var
   Rows :wMyList;
begin
   if MyList = nil then
   begin
     exit;
   end
   else
   begin
     Rows:= wMyList(MyList.Items[0]);
     Label1.Caption := Rows.Cone + Rows.Ctwo;
   end;
end;

 

delphi 用起来有点麻烦啊。。