QueueUserWorkItem wie sieht es in Delphi aus?

[Luckie]

Ich weiß, ich spame, aber ich habe es gerade gefunden:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  ThreadParams: PThreadParams;
begin
  New(ThreadParams);
  ThreadParams.ThreadID := i;
  if QueueUserWorkItem(@Thread, ThreadParams, WT_EXECUTEDEFAULT) = 0 then
    ShowMessage(SysErrorMessage(GetLastError));
  Inc(i);
end;

Übergibt man als Flag: WT_EXECUTEDEFAULT ergibt sich obige Situation: Dass Messagebox zwei nicht erscheint. Schließe ich eine alte Messagebox, erscheint Mesaagebox zwei, ohne dass ich noch mal auf die Schaltfläche geklickt habe. Tut also alles, wie es soll.

Fällt jemanden jetzt dazu eine schöne Demoanwendung ein?