#pas
var
p:Longint;

constructor THiAsmClass.Create;
begin
...

p:=Longint(Self);
...
end;



function ChildCallback(HWnd: THandle; Msg: Cardinal;
....
begin
....
  THiAsmClass(Pointer(P))._hi_onEvent(onPath, path);
...
end;