QueueUserWorkItem wie sieht es in Delphi aus?

[Basilikum]

die Calling-Convention deiner Thread-Funktion stimmt übrigens nicht; richtig wäre StdCall:
function Thread(p: Pointer): Integer; StdCall;