AV при связывании IBQ и IBDb

  TDatabaseConnect = class
    private
      FIBDatabase: TIBDatabase;
    public
      constructor Create;
      destructor Destroy; override;
      function Connect: TStateOfConnect;
  end;
 
  TUserVerification = class
    private
      FDatabaseConnect: TDatabaseConnect;
    public
      constructor Create;
      destructor Destroy; override;
      function CheckUser(AUsername, AUserPassword: string): TStateOfUser;
  end;
 
  TAMSystem = class
    private
      FUser: TUserVerification;
    public
      constructor Create;
      destructor Destroy; override;
      function CheckAccessForApp(AUserName, AUserPassword: string; ATaskID: Integer): TStateOfAccessForApp;
  end;
 
  { реализация методов }
function TUserVerification.CheckUser(AUsername, AUserPassword: string): TStateOfUser;
  var
    IBQueryAuthorization: TIBQuery;
begin
  IBQueryAuthorization := TIBQuery.Create(nil);
  IBQueryAuthorization.Database := FDatabaseConnect.FIBDatabase; // отрабатывает без ошибок
 
  { что - то тут еще делаю }
end;
 
function TAMSystem.CheckAccessForApp(AUserName, AUserPassword: string;
  ATaskID: Integer): TStateOfAccessForApp;
var
  IBQueryTaskOnExecuter: TIBQuery;
begin
  IBQueryTaskOnExecuter := TIBQuery.Create(nil);
  IBQueryTaskOnExecuter.Database := FUser.FDatabaseConnect.FIBDatabase; // Access Violation вылетает 
 
  { что - то тут еще делаю }   
end;
 
 { вызов }
procedure TForm1.Button2Click(Sender: TObject);
  var
    AMSs: TAMSystem;
begin
  AMSs := TAMSystem.Create;
  AMSs.CheckAccessForApp('vic121', '123', 26);
  FreeAndNil(AMSs);
end;

constructor TAMSystem.Create;
begin
  FUser := TUserVerification.Create;
end;

constructor TDatabaseConnect.Create;
begin
  FIBDatabase := TIBDatabase.Create(nil);
 
  {  ниже написаны настройки подключения к БД }
end;
 
constructor TUserVerification.Create;
begin
  FDatabaseConnect := TDatabaseConnect.Create;
end;
 
constructor TAMSystem.Create;
begin
  FUser := TUserVerification.Create;
end;

function TUserVerification.CheckUser(AUsername, AUserPassword: string): TStateOfUser;
  var
    IBQueryAuthorization: TIBQuery;
begin
  IBQueryAuthorization := TIBQuery.Create(nil);
  IBQueryAuthorization.Database := FDatabaseConnect.FIBDatabase; // отрабатывает без ошибок
 
  { что - то тут еще делаю }
end;

IBQueryTaskOnExecuter.Database := nil