..............................................
var  _HandleOwnerApp     :THandle;
.............................................
..............................................

procedure DllMain(fdwReason:DWORD);
begin
  case fdwReason of
    DLL_THREAD_ATTACH: ;
    DLL_THREAD_DETACH: ;
    DLL_PROCESS_ATTACH: begin
                                     ....................
                                     ...................
                                     CoInitialize(nil);
                                     end;
    DLL_PROCESS_DETACH: begin
                                     DModule.IBDB.Close;
                                     DModule.Free;
                                     CoUnInitialize;
                                     end;
  end;
end;

function ShowRep(DVar:Variant):Variant; StdCall;
var ...................
    ....................
begin
   _HandleOwnerApp := Application.Handle;
    Application.Handle := DVar[0]; //HandleCallApp;
    if not Assigned(DModule) then DModule := TDModule.Create(DModule);
    DModule.IBDB.DatabaseName := DVar[2]; //ConnectionString IBDataBase
    ...........................................................
   ...........................................................
    with TfmListReports.Create(nil)  do
    begin
      try
        .................................
        ..................................

        if ShowModal = mrOK then
        begin
          .....................
          .......................
          Query.Open; //Запрос с ошибкой
          ........................
          ........................
          Free;
          DModule.IBDB.Close;
          DModule.Free;
          Result := VarArrayOf([1,null,null]);
        end;            
      except
        on E:Exception do
        begin
          CreateDialog('Ошибка!', E.Message , mtError, [mbYes], poOwnerFormCenter);
          Result := VarArrayOf([0,null,null]);
          Free;
          DModule.IBDB.Close;
          DModule.Free;
          CoUnInitialize;
        end;
      end;
    end;
end;

exports ShowRep;

begin
DllProc := @DllMain;
DllMain(DLL_PROCESS_ATTACH);
end.