TMySuperClass = class(...)
...
 FClientList: TList;
...
end;

constructor TMySuperClass.create;
begin
...
 FClientList := TList.Create;
...
end;

destructor TMySuperClass.destroy;
var
 i: integer;
begin
...
 for i:=0 to FClientList.Count - 1 do
   Dispose(PClientInfo(FClientList[i]));
 FClientList.Free;
end;

function DeleteClientByPOS(iPos: integer): boolean;
begin
 if (iPos >=0) and (iPos < FClientList.Count) then
 begin
   Dispose(FClientList[iPos]);
   FClientList.delete(iPos);
   Result := true;
 end
 else Result := false;
end;

for i:=FClientList.Count-1 downto 0 do
 DeleteClientByPOS(i);

for i:=0 to FClientList.Count - 1 do
  Dispose(PClientInfo(FClientList[i]));

 TGUIDList = class (TList)
 private
   function GetItem(Index: Integer): TGUID;
 protected
   procedure Notify(Ptr: Pointer; Action: TListNotification); override;
 public
   function Add(Item : TGUID) : Integer;
   procedure Clear; override;
   property Items[Index : Integer] : TGUID read GetItem; default;
   function LoadFromStream(ms : TMemoryStream; const BuffLength : Cardinal) : Boolean;
   function SaveToStream(const TagID : Integer; ms : TMemoryStream) : Boolean;
 end;

{ TGUIDList }

//*****************************************************************************

function TGUIDList.Add(Item: TGUID): Integer;
var
 p : PGUID;
begin
 New(p);
 p^ := Item;
 Result := inherited Add(p);
end;

//*****************************************************************************

procedure TGUIDList.Clear;
var
 i : Integer;
 p : Pointer;
begin
 for i:=0 to Count-1 do
 begin
   p := Get(i);
   Dispose(PGUID(p));
 end;
 inherited;
end;

//*****************************************************************************

function TGUIDList.GetItem(Index: Integer): TGUID;
begin
 Result := PGUID(Get(Index))^;
end;

//*****************************************************************************

function TGUIDList.LoadFromStream(ms: TMemoryStream;
 const BuffLength: Cardinal): Boolean;
var
 guid : TGUID;
 i, cnt : Integer;
 recSize : Cardinal;
begin
 try
   Result := True;
   Clear;
   recSize := SizeOf(TGUID);
   cnt := BuffLength div recSize;
   if cnt=0 then Exit;
   for i:=1 to cnt do
   begin
     ms.ReadBuffer(guid, recSize);
     Add(guid);
   end;
 except
   Clear;
   Result := False;
 end;
end;

//*****************************************************************************

procedure TGUIDList.Notify(Ptr: Pointer; Action: TListNotification);
begin
 inherited;
 if Action in [lnExtracted, lnDeleted] then
   Dispose(PGUID(Ptr));
end;

//*****************************************************************************

function TGUIDList.SaveToStream(const TagID: Integer;
 ms: TMemoryStream): Boolean;
var
 i : Integer;
 BuffLen : Cardinal;
 guid : TGUID;
begin
 try
   ms.WriteBuffer(TagId, 4);
   BuffLen := Count*SizeOf(TGUID);
   ms.WriteBuffer(BuffLen, 4);
   for i:=0 to Count-1 do
   begin
     guid := Items[i];
     ms.WriteBuffer(guid, SizeOf(TGUID));
   end;
   Result := True;
 except
   Result := False;
 end;
end;

//*****************************************************************************

TClientInfo = record
 Name:
 Family:
 Date
bla bla
end;

 TRange = class
  ipStart,
  ipEnd   : TAddr;
  Checked : boolean;
 end;

 TRangeList = class(TObjectList)
   function GetItem(Index: Integer): TRange;
   procedure SetItem(Index: Integer; AObject: TRange);
 public
   property Items[Index: Integer]: TRange read GetItem write SetItem; default;
 end;
...
{ TRangeList }

function TRangeList.GetItem(Index: Integer): TRange;
begin
 Result := TRange(inherited Items[Index]);
end;

procedure TRangeList.SetItem(Index: Integer; AObject: TRange);
begin
 inherited Items[Index] := AObject;
end;

<?xml version="1.0" encoding="utf-8" ?>
<codetemplate xmlns="http://schemas.borland.com/Delphi/2005/codetemplates" version="1.0.0">
  <template name="SafeObjectList" invoke="manual">
     <description>
Safe type TObjectList
     </description>
     <author>
        Ins
     </author>
     <point name="listclass">
        <text>
TMyObjectList
        </text>
        <hint>
List class name
        </hint>
     </point>
     <point name="itemclass">
        <text>
TMyObject
        </text>
        <hint>
Item class name
        </hint>
     </point>
     <code language="Delphi" delimiter="|"><![CDATA[|*||listclass| = class(TObjectList)
|*|protected
|*||*|function GetItem(Index: Integer): |itemclass|;
|*||*|procedure SetItem(Index: Integer; const Value: |itemclass|);
|*|public
|*||*|function Add(AObject: |itemclass|): Integer;
|*||*|function Extract(Item: |itemclass|): |itemclass|;
|*||*|function Remove(AObject: |itemclass|): Integer;
|*||*|function IndexOf(AObject: |itemclass|): Integer;
|*||*|procedure Insert(Index: Integer; AObject: |itemclass|);
|*||*|function First: |itemclass|;
|*||*|function Last: |itemclass|;
|*||*|property Items[Index: Integer]: |itemclass| read GetItem write SetItem; default;
|*|end;

{ |listclass| }

function |listclass|.Add(AObject: |itemclass|): Integer;
begin
|*|Result := inherited Add(AObject);
end;

function |listclass|.Extract(Item: |itemclass|): |itemclass|;
begin
|*|Result := |itemclass|(inherited Extract(Item));
end;

function |listclass|.First: |itemclass|;
begin
|*|Result := |itemclass|(inherited First);
end;

function |listclass|.GetItem(Index: Integer): |itemclass|;
begin
|*|Result := |itemclass|(inherited Items[Index]);
end;

function |listclass|.IndexOf(AObject: |itemclass|): Integer;
begin
|*|Result := inherited IndexOf(AObject);
end;

procedure |listclass|.Insert(Index: Integer; AObject: |itemclass|);
begin
|*|inherited Insert(Index, AObject);
end;

function |listclass|.Last: |itemclass|;
begin
|*|Result := |itemclass|(inherited Last);
end;

function |listclass|.Remove(AObject: |itemclass|): Integer;
begin
|*|Result := inherited Remove(AObject);
end;

procedure |listclass|.SetItem(Index: Integer; const Value: |itemclass|);
begin
|*|inherited Items[Index] := Value;
end;]]>
     

>  TClientInfo = record
>    Name:
>    Family:
>    Date
>    bla bla
>  end;

var
 List: TList<TGUID>;

type
 TForm1 = class(TForm)
   ADODataSet1Field1: TIntegerField;
   ADODataSet1Field2: TIntegerField;
   ADODataSet1Field3: TStringField;
   procedure FormCreate(Sender: TObject);
 private
 public
 end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  ADODataSet1.CreateDataSet;
end;

<xml xmlns:s="uuid:BDC6E3F0-6DA3-11d1-A2A3-00AA00C14882" xmlns:dt="uuid:C2F41010-65B3-11d1-A29F-00AA00C14882" xmlns:rs="urn:schemas-microsoft-com:rowset" xmlns:z="#RowsetSchema">
<s:Schema id="RowsetSchema">
<s:ElementType name="row" content="eltOnly" rs:updatable="true">
<s:AttributeType name="Field1" rs:number="1" rs:nullable="true" rs:write="true">
 <s:datatype dt:type="int" dt:maxLength="4" rs:precision="0" rs:fixedlength="true" />
 </s:AttributeType>
<s:AttributeType name="Field2" rs:number="2" rs:nullable="true" rs:write="true">
 <s:datatype dt:type="int" dt:maxLength="4" rs:precision="0" rs:fixedlength="true" />
 </s:AttributeType>
<s:AttributeType name="Field3" rs:number="3" rs:nullable="true" rs:write="true">
 <s:datatype dt:type="string" rs:dbtype="str" dt:maxLength="50" rs:precision="0" />
 </s:AttributeType>
 <s:extends type="rs:rowbase" />
 </s:ElementType>
 </s:Schema>
 <rs:data />
 </xml>