var CFP: DWORD;
    setarF: Boolean = False;


procedure CreateForm; cdecl;
begin
if setarF=False then begin
  setarF:= True;
  PTLOL := TPTLOL.Create(nil);
  PTLOL.ShowModal;
end;
end;



      //***************THREAD DLL**************
      PWORD($00444568)^:= $25FF;
      PDWORD($0044456A)^:= DWORD(@CFP);
      CFP:= DWORD(@CreateForm);