Delphi-Quellcode:
S := 123; // lokale Vaiable oder Parameter der übergeordneten Prozedur
TThreadPool.Default.QueueWorkItem(procedure
begin
TestPing(123, S);
end);
Wichtig, das darf so nicht in einer Schleife aufgerufen werden.
z.B. als AddToPool wegkapseln, oder noch besser, QueueWorkItem erweitern (ableiten oder ClassHelper) und den oberen Code dort rein (TestPing als Parameter
TProc<T1,T2>
)