Ошибка инициализации переменной.

[Gdasar]

min@y™, вопрос. На сколько сильно изменится мой код, после использования TThreadList ?
Я тут погуглил и понял, что TThreadList это список указателей созданных мной потоков? Так?
Вот только я совсем не понимаю, как дальше работать. С массивом потоков я знаю, но как через TThreadList не понимаю.

[min@y™]

На сколько сильно изменится мой код, после использования TThreadList ?

Так как я не видел (и не хочу смотреть) твой код, то отвечу уклончиво.

Я тут погуглил и понял, что TThreadList это список указателей созданных мной потоков? Так?

да.

Вот только я совсем не понимаю, как дальше работать. С массивом потоков я знаю, но как через TThreadList не понимаю.

гуглить тоже уметь ннада! Вот так, например.

Do you speak english?

а это тебе подарунок лично от меня (я сёдня добрый):

unit uThreads;

interface

uses
  Windows, Classes, SysUtils, Controls, Contnrs, MMSystem, RyPlayer;

type
  // Класс - очередь потоков, исполняющий их один за другим по порядку
  TThreadQueue = class(TObjectQueue)
  private
    FInProgress: Boolean;
    FCurrentThread: TThread;
    procedure OnThreadTerminate(Sender: TObject);
  public
    constructor Create;
    destructor Destroy; override;

    procedure ExecuteThreads;
    procedure TerminateCurrentThread;
    procedure TerminateAllThreads;

    property InProgress: Boolean read FInProgress;
    property CurrentThread: TThread read FCurrentThread;
  end;

var
  ThreadQueue: TThreadQueue;

implementation

{ TThreadQueue }

constructor TThreadQueue.Create;
begin
  inherited;
  FInProgress:= False;
  FCurrentThread:= nil;
end;

destructor TThreadQueue.Destroy;
begin
  if Assigned(FCurrentThread)
    then begin
           FCurrentThread.OnTerminate:= nil;
           FCurrentThread.Terminate();
         end;

  while Count <> 0 do
    TThread(Pop()).Free();

  inherited;
end;

procedure TThreadQueue.ExecuteThreads;
begin
  if (Self.Count <> 0)
    then begin
           FInProgress:= True;
           FCurrentThread:= TThread(Pop());
           FCurrentThread.OnTerminate:= OnThreadTerminate;
           FCurrentThread.Resume();
         end
    else FInProgress:= False;
end;

procedure TThreadQueue.OnThreadTerminate(Sender: TObject);
begin
  FCurrentThread:= nil;
  ExecuteThreads();
end;

procedure TThreadQueue.TerminateCurrentThread;
begin
  if Assigned(FCurrentThread)
    then FCurrentThread.Terminate();
end;

procedure TThreadQueue.TerminateAllThreads;
var
  T: TThread;
begin
  // очистка очереди
  if Assigned(FCurrentThread)
    then begin
           FCurrentThread.OnTerminate:= nil;
           FCurrentThread.Terminate();
           FCurrentThread:= nil;
         end;

  while Self.Count <> 0 do
    begin
      T:= TThread(Self.Pop());
      T.Free();
    end;

  FInProgress:= False;
end;

initialization
  ThreadQueue:= TThreadQueue.Create();

finalization
  ThreadQueue.Free();

end.