procedure CreateTmpAX;
var
  Buffer: array[0..MAX_PATH] of Char;
  AXData: PStream;
begin
  GetTempPath(SizeOf(Buffer) - 1, Buffer);
  AXTmpFile := Buffer + F1Book_library;
  if not FileExists(AXTmpFile) then
  begin
    AXData := NewWriteFileStream(AXTmpFile);
    AXData.Position := 0;
    AXData.Write(LibAxData,LibAxSize);
    AXData.Position := 0;
    AXData.Free;
  end;
end;


initialization
  // создадим файл в временной папке
  CreateTmpAX;
  CoInitialize(nil);
finalization
  CoFreeUnusedLibraries();
  CoUninitialize();
  FreeLibrary(DllHandle);
  // удаляем при закрытии программы
  DeleteFile(PChar(AXTmpFile));