unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
type
  TMyRec = record
  Id: Integer;
  Name : String;
  Age : Integer;
  end;
 PTMyRec = ^TMyRec;
var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  PsnInfo:PTMyRec;
  PsnList:TList;
begin
  PsnList:=TList.Create;
  new(PsnInfo);
  PsnInfo^.Id:= 1;
  PsnInfo^.Name:= 'ShenBin';
  PsnInfo^.Age:= 28;
  PsnList.Add(PsnInfo);
  PsnList.Add(PsnInfo);
  ShowMessage(IntToStr(PsnList.Count));
  PsnInfo:=PsnList.Items[1];
  ShowMessage(PsnInfo^.Name);
  Dispose(PsnInfo);
end;

end.