var
  Form1: TForm1;
  fdll_gfv: PWChar = 'GetFileVersion';
  GetFileVersion: TGetFileVersion;
  dll_inGfv: THandle;

  str_dll:  PWChar = 'fgfv.dll';
  str_file: string = 'C:\Users\Home\Desktop\Project\Debug\Win32\Project1.exe';


procedure TForm1.Button1Click(Sender: TObject);
begin
  try
    dll_inGfv:= LoadLibrary(str_dll);
    if dll_inGfv <> 0 then
      begin
        //dll_inGfv:= LoadLibrary(str_dll);   --- если здесь загружаю, дополнительно к тому, что загрузил выше, то ошибка пропадает.       
        @GetFileVersion := GetProcAddress(dll_inGfv, fdll_gfv);
        if addr (GetFileVersion) <> nil then
          begin
            ListBox1.Items.Clear;
            ListBox1.Items.Add(GetFileVersion(str_file));
          end
        else
          begin
            ShowMessage ('Необходимая функция не найдена!');
          end;
      end
    else
      begin
        ShowMessage ('Библиотека '+str_dll+' не найдена!');
      end;
  finally
    FreeLibrary(dll_inGfv);
  end;
end;

type
  TGetFileVersion = function (const fn: String): String;

var
  Form1: TForm1;
...

type
  TGetFileVersion = function (const fn: PChar): String; stdcall;

var
  Form1: TForm1;
  fdll_gfv: PWChar = 'GetFileVersion';
  GetFileVersion: TGetFileVersion;
  dll_inGfv: THandle;
  str_dll:  PWChar = 'fgfv.dll';
  str_file: string = 'C:\Users\Home\Desktop\Project\Debug\Win32\Project1.exe';

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  try
    dll_inGfv:= LoadLibrary(str_dll);
    if dll_inGfv <> 0 then
      begin
        //dll_inGfv:= LoadLibrary(str_dll); --- если разкомментировать, то ошибка пропадает (функция выполняется, но нет ошибки)
        @GetFileVersion := GetProcAddress(dll_inGfv, fdll_gfv);
        if addr (GetFileVersion) <> nil then
          begin
            ListBox1.Items.Clear;
            ListBox1.Items.Add(GetFileVersion(PChar(str_file)));
          end
        else
          begin
            ShowMessage ('Необходимая функция не найдена!');
          end;
      end
    else
      begin
        ShowMessage ('Библиотека '+str_dll+' не найдена!');
      end;
  finally
    FreeLibrary(dll_inGfv);
  end;
end;

end.

var
  tmp, InfoSize, FileInfoSize: DWord;
  Info: Pointer;
  FileInfo: PVSFixedFileInfo;

{ Объявляем функцию GetFileVersion }
function GetFileVersion(const fn: PChar): String; stdcall;
begin
  // Функция получает информацию о файле
  result:='';
  FileInfo:=nil;
  InfoSize:=GetFileVersionInfoSize(pChar(fn), tmp);
  if InfoSize = 0 then Exit;
  GetMem(Info, InfoSize);
  GetFileVersionInfo(pChar(fn), 0, InfoSize, Info);
  VerQueryValue(Info, '\', Pointer(FileInfo), FileInfoSize);
  with FileInfo^ do
    result:=inttostr(dwProductVersionMS shr 16)     +'.'
            +inttostr(dwProductVersionMS and $FFFF) +'.'
            +inttostr(dwProductVersionLS shr 16)    +'.'
            +inttostr(dwProductVersionLS and $FFFF);
  FreeMem(Info, InfoSize);
end;

{ Экспортируем функцию для дальнейшего
  использования }
exports
  GetFileVersion;

begin
end.

    dll_inGfv:= LoadLibrary(str_dll);
    if dll_inGfv <> 0 then
      begin
        //dll_inGfv:= LoadLibrary(str_dll); --- если разкомментировать, то ошибка пропадает (функция выполняется, но нет ошибки)

  finally
    FreeLibrary(dll_inGfv);
  end;

{ Объявляем функцию GetFileVersion }
function GetFileVersion(const fn: WideString): WideString; stdcall;

TGetFileVersion = function (const fn: PChar): String; stdcall;

library Project1;

{ Important note about DLL memory management: ShareMem...