function Generate_Reloction_Map(Reloc_Seg:PByte;
                                      Func_RVA:DWORD;
                                      Func_Size:Integer;
                                      Reloc_Map:PDWORD):Integer ;
type
  TDwordArry = array of DWORD ;

  TWordArry = array of Word ;

var
  Reloc_Prt : PByte ;
  _rel_Cnt : Integer ;

  Reloc_RVA : DWORD ;
  Block_Size : DWORD ;

  int_Index : Integer ;

  dword_andFFF : DWORD ;

begin
  Result := 0 ;

  Reloc_Prt := Reloc_Seg ;
  _rel_Cnt := 0 ;

  while (PDWORD(Reloc_Prt)^ > 0) do
  begin
    Reloc_RVA := TDwordArry(PDWORD(Reloc_Prt))[0] ;
    Block_Size := TDwordArry(PDWORD(Reloc_Prt))[1] ;

    for int_Index:=0 to (Block_Size-8) div 2 do
    begin
      dword_andFFF := Reloc_RVA + TWordArry(PWORD(DWORD(Reloc_Prt)+8))[int_Index] and $FFF ;

      if (dword_andFFF >= Func_RVA) and
       (dword_andFFF < Func_RVA+DWORD(Func_Size)) then
      begin

        if Reloc_Map <> nil then
        begin
          TDwordArry(Reloc_Map)[_rel_Cnt] := Reloc_RVA + dword_andFFF ;
        end;

        _rel_Cnt := _rel_Cnt + 1 ;

      end;

    end;

    DWORD(Reloc_Prt) := DWORD(Reloc_Prt) + Block_Size ;

  end;


end;