Eure besten Quellcode Kommentare...

[TiGü]

XE7 - System.Threading - Zeile 3005

Delphi-Quellcode:

procedure TThreadPool.TQueueWorkerThread.ExecuteWorkItem(var Item: IThreadPoolWorkItem);
begin
  try
    try
      Item.ExecuteWork;
    finally
      Item := nil;
    end;
  except
    // ???figure out error handling and exception passing system???
  end;
end;