Ist es möglich über TParallel eine Procedure zum ausführen zu übergeben?

[Kostas]

HALT hat sich erledigt.

Die Methode muss natürlich manuell ausgeführt werden.

Delphi-Quellcode:

procedure TForm1.ExecuteQueue;
begin
  TThread.CreateAnonymousThread(procedure
  var proc: TThreadProcedure;
  begin
    while not Application.Terminated do begin //Endlosschleife bis App beendet wird
      if ProcQuere.Count <> 0 then
      begin
        proc := ProcQuere.Dequeue();
        proc(); // Die Methode muss natürlich manuell ausgeführt werden.
      end;
    end;
  end).Start;

end;