Ein Versuch mit Omnithreadlibrary

[IMPEGA]

Neuer Anfang.

Frage an die Profis.
Bin ich damit im Ansatz OK?

Delphi-Quellcode:

    { Private-Deklarationen }
    Fpool : TThreadpool;

...

procedure TForm1.Button5Click(Sender: TObject);
begin
  Memo1.Clear;

  if FPool = nil then
    begin
      Fpool := TThreadPool.Create;
      Fpool.SetMaxWorkerThreads(10);
      Fpool.SetMinWorkerThreads(1);
    end;

  TTask.Run(procedure
    begin
      TParallel.&For(0, 100,  {von 1 to 10}
        procedure(Index : Integer)
          begin
            Sleep(1000);
            Memo1.Lines.Add('TThread.Ergebnis : ' + TTask.CurrentTask.Id.ToString + ' : ' + Index.ToString);

           // KANN ICH HIER AUF EINE GLOBALE STRINGLIST ZUGREIFEN ?????

          end, FPool);
    end);
end;