Du deklarierst erst die Variablen:
Delphi-Quellcode:
var
ThreadHandle: THandle;
PThreadHandle: ^THandle;
Und erhältst dann so den Pointer auf Dein
Handle.
Delphi-Quellcode:
begin
ThreadHandle := THandle(p);
PThreadHandle := @ThreadHandle;
...
PThreadHandle übergibst Du dann.
[EDIT: Tippser entfernt]