EIBInterBaseError 'Datenbank nicht verfügbar' beim erstellen einer Firebird Datenbank in Delphi

Ich versuche zum erstellen einer Firebird-Datenbank während der Laufzeit. Das Verfahren, das ich verwende, um dies zu tun, ist dieses hier:

procedure CreateDatabase(DBName: String);
var
  IBDatabase1: TIBDatabase;
begin
  IBDatabase1 := TIBDatabase.Create(Self);
  try
    IBDatabase1.DatabaseName := ChangeFileExt(DBName, '.fdb');
    IBDatabase1.Params.Add('USER ''SYSDBA''');
    IBDatabase1.Params.Add('PASSWORD ''masterkey''');
    IBDatabase1.Params.Add('PAGE_SIZE 4096');
    IBDatabase1.Params.Add('DEFAULT CHARACTER SET WIN1252');
    IBDatabase1.CreateDatabase;
  finally
    IBDatabase1.Free;
  end;
end;

Ich habe dies erreicht, ohne Probleme in jedem kleinen Projekt, dass mir teste diese Funktion. Allerdings, wenn ich versuche diesen code auszuführen in der gleichen Maschine, gleichen Delphi, gleichen alles, außer, dass es eine andere (und ziemlich groß) Projekts erhalte ich die folgende Fehlermeldung auf der IBDatabase1.CreateDatabase-line:

First chance exception at $7579B9BC. Exception class EIBInterBaseError with message 'unavailable database'. Process xxx.exe (4144)

Jemand irgendwelche Hinweise dazu? Vielleicht irgendeine Weise zu Debuggen, richtig?

Vielen Dank im Voraus.

BEARBEITEN

Scheint es zu sein, etwas in meiner Projekt-Datei. Ich habe es geschafft, einen neuen zu generieren und das problem ist Weg, aber ich habe Angst, gebissen zu werden, durch diese in die Zukunft. Was könnte possibilly die das verursachen?