[NumLock]

Код:

procedure SaveListToFile(const AFileName: String; const AList: TList);
var
  AFileStream: TFileStream;
  i: Integer;
  n: DWORD;
begin
  AFileStream:=TFileStream.Create(AFileName, fmCreate);
  try
    for i:=0 to AList.Count-1 do
    begin
      n:=DWORD(AList[i]);
      AFileStream.WriteBuffer(n, SizeOf(n));
    end;
  finally
    AFileStream.Free;
  end;
end;

использование:

Код:

var
  AList: TList;
begin
  AList:=TList.Create;
  try
    AList.Add(Pointer(8));
    AList.Add(Pointer(7));
    AList.Add(Pointer(2011));
    SaveListToFile('d:\Downloads\AList.txt', AList);
  finally
    AList.Free;
  end;
end;