type
PMyRec = TMyRec;
TMyRec = record
Name: string[40];
Addr: string[25];
Comments: string;
salary: Double;
end;
var
aList: TList;
aRecPtr: PMyRec;
I: Integer;
begin
aList := TList.Create;
New(aRecPtr);
with aRecPtr^ do
begin
Name := '___Nikolay';
Addr := 'Delphi World';
Comments := 'Автор проекта Delphi World';
Salary := 999000.00;
end;
aList.Add(aRecPtr);
aList.Add(...);
...
for I := 1 to aList.Count do
begin
aRecPtr := PMyRec(aList.Items[I - 1]);
{что-то делаем с записью}
end;
{теперь избавляемся от всех записей
и самого списка-объекта}
for I := 1 to aList.Count do
Dispose(PMyRec(aList.Items[I - 1]));
aList.Free;
end;
| 
Список объектов