Сброс данных массива при запуске потока

[PaHaNjkee]

Всем привет. Есть классы:

TAccountsList = class(TObject)
  private
    fAccounts: array of TAccount;
    fAccountsCount: Integer;
  public
    constructor Create;
    destructor Destroy;

    procedure Add(fAccount: TAccount);
    procedure Clear;
    procedure Copy(from: TAccountsList);
    property Count: Integer read fAccountsCount;
    function Get(Index: Integer): TAccount;
  end;

TTasksThread = class(TThread)
  private
    fTaskThread: array of TTaskThread;
    fThreadCount: Integer;
    fList: TAccountsList;
    fStopping: Boolean;
    procedure DoTerminate(Sender: TObject);
  protected
    procedure Execute; override;
  public
    constructor Create(aList: TAccountsList; aThreadCount: Integer);
    destructor Destroy;

    property Stopping: boolean read fStopping write fStopping;
  end;

В методе создания потока такой код:

constructor TTasksThread.Create(aList: TAccountsList; aThreadCount: Integer);
begin
  inherited Create(true);
  FreeOnTerminate := true;
  fList := TAccountsList.Create;
  fList.Copy(aList);
  fThreadCount := aThreadCount;
  OnTerminate := DoTerminate;
  fStopping := false;
  Test(fList.Get(0).Login); // ВЫВОДИТ Login. В начале метода Execute тут будет пустота
  Resume;
end;

fList получает все нужные данные и если вызвать fList.Get(0).Login, то данные отображаются верно. Как только этот код выполнить в методе Execute потока, абсолютно все данные теряются. В чем может быть проблема? Код запуска потока:

aList := TAccountsList.Create;
  accInfo := TAccount.Create;
  try
    for i := 0 to fAccountsList.Count-1 do
    begin
      accInfo.Clear;
      accInfo.Login := 'Login';

      aList.Add(accInfo);
    end;

    fMainThread := TTasksThread.Create(aList, threadsCount);
  finally
    accInfo.Free;
    aList.Free;
  end;

Ну и соответственно код класса:

{ TAccountsList }

procedure TAccountsList.Add(fAccount: TAccount);
begin
  SetLength(fAccounts, fAccountsCount+1);
  fAccounts[fAccountsCount] := fAccount;
  Inc(fAccountsCount);
end;

procedure TAccountsList.Clear;
begin
  SetLength(fAccounts, 0);
  fAccountsCount := 0;
end;

procedure TAccountsList.Copy(from: TAccountsList);
var
  i: Integer;
begin
  self.Clear;
  for i := 0 to from.Count-1 do
    self.Add(from.Get(i));
end;

constructor TAccountsList.Create;
begin
  inherited Create;
  SetLength(fAccounts, 0);
end;

destructor TAccountsList.Destroy;
begin
  SetLength(fAccounts, 0);
  fAccountsCount := 0;
  fAccounts := nil;
  inherited Destroy;
end;

function TAccountsList.Get(Index: Integer): TAccount;
begin
  if (Index >= Length(fAccounts)) or (Index < 0) then
    raise Exception.Create('Invalid index [TAccountsList]');

  result := fAccounts[Index];
end;

[evg_m]

ВСЕ объекты представлены в коде своими ссылками
accInfo: TAccount;
именно поэтому и нужно писать присвоение создания accInfo := TAccount.Create;

fAccounts[fAccountsCount] := fAccount; //это дублирование ССЫЛКИ на объект, а НЕ дублирование объекта.

    fMainThread := TTasksThread.Create(aList, threadsCount); 
// при создании потока копируется ССЫЛКА на объект accInfo; fAccounts[fAccountsCount] := fAccount;
  finally
    accInfo.Free; //затем сам объект уничтожается 
    aList.Free;
  end;
// и начинает работать поток НО объекта-то нет

либо пересоздавать объект внутри потока(делать копию объекта),

faccount[...]:=TAccount.Create;
+ копирование его внутренних данных

либо НЕ уничтожать его после запуска, а когда-нибудь потом(когда ВСЕ потоки закончатся OnTerminate у всех потоков)

    accInfo.Free; //затем сам объект уничтожается