type
  PRecord = ^TMyRec;
  TMyRec = record
    s: string[8];
    i: integer;
    d: double;
end;
var 
  MyList: TList;
  PR: PRecord;
begin
  MyList := TList.Create;      
  try
    New(PR);
    PR.s := ‘10000001‘;
    PR.i := 1001;
    PR.d := 0.1;
    MyList.Add(PR);  //存入TList
    {...}
    PR := MyList.Items[0];
    showMessage(inttostr(PR.i) + ‘: ‘ + PR.s); //显示
  finally
    MyList.Free;
  end;
end;

delphi 结构体和TList的用法