SetFileAttributes(PChar(szFileName), 0);
       FHandle:= OpenFile(PChar(szFileName), OFS, OF_READWRITE);
       if (FHandle = INVALID_HANDLE_VALUE) then
       begin
         Writeln('Open file error');
         goto Quit;
       end;
begin
         Result:= Offset + SectionRVA - SectionOffset;
       end;

       function Bit(B: DWORD): Byte;
       begin
         if B <> 0 then
           Result:= 1
         else
           Result:= 0;
       end;