function  GetRetAddr:pointer; assembler;
 asm 
  mov eax,[ebp+ 4 ];
 end ;


 function  AddrToModule_NT(Addr:pointer):THandle;
 type 
  PHandleList=^THandleList;
  THandleList= array [ 0 .. 32767 ]  of  THandle;
 var 
  PModList:PHandleList;
  MemSize,i:integer;
  Res:bool;
  MInfo:TModuleInfo;
 begin 
  Result:=INVALID_HANDLE_VALUE;
  MemSize:=SizeOf(THandle);
   repeat 
    GetMem(PModList,MemSize);
    Res:=EnumProcessModules(GetCurrentProcess,PModList^,MemSize,MemSize);
     if   not  Res  then  FreeMem(PModList);
   until  Res;
   try 
     for  i:= 0   to  (MemSize  div  SizeOf(THandle))- 1   do 
     begin 
       if   not  GetModuleInformation(GetCurrentProcess,PModList^[i],
        MInfo,SizeOf(MInfo))  then  RaiseLastWin32Error;
       with  MInfo  do 
       begin 
         if  (integer(Addr)>=integer(lpBaseOfDll))  and 
          (integer(Addr)<integer(lpBaseOfDll)+SizeOfImage)  then 
         begin 
          Result:=PModList^[i];
          exit;
         end 
       end ;
     end ;
   finally 
    FreeMem(PModList);
   end ;
 end ;

 function  GetCallerHandle:THandle; stdcall;
 begin 
  Result:=AddrToModule_NT(GetRetAddr);
 end ;

 function  GetCallerModuleName: string ; stdcall;
 var 
  H:THandle;
  Size:integer;
 begin 
  H:=AddrToModule_NT(GetRetAddr);
  SetLength(Result, 1024 );
  Size:=GetModuleBaseName(GetCurrentProcess,H,@Result[ 1 ],Length(Result));
   if  Size<> 0   then  Result:=copy(Result, 1 ,Size)  else  Result:='Unknown';
 end ;