Neu Firebird Datenbank wird auf Server nicht angelegt

[Chemiker]

Hallo,

mit folgenden Quellcode will ich eine neue Firebird Datenbank auf einen MS Server anlegen:

Delphi-Quellcode:

procedure TfrmFirebird_DB_anlegen.DB_anlegen(ServerName, DatenbankOrdner,
   DatenbankFileName: String; var DB: TIBCConnection);
begin
  if not FileExists(DatenbankOrdner+DatenbankFileName) then
  begin
    DB:= TIBCConnection.Create(NIL);
    try
      try
        DB.database := ServerName + ':' + DatenbankOrdner + DatenbankFileName;
        DB.SQLDialect := 3;
        DB.Params.Clear;
        DB.Params.Add('USER "SYSDBA"');
        DB.Params.Add('PASSWORD "masterkey"');
        DB.Params.Add('PAGE_SIZE 16384');
        DB.LoginPrompt:= FALSE;
        DB.CreateDatabase;
        DB.Connected := FALSE;
      except
        on E: exception do
          Showmessage(E.ClassName + ': ' + E.Message);
      end;
   finally
     DB.Free;
   end;
  end;
end;

Ich habe 2 VMs laufen:

Auf der 1 VM läuft MS Vista mit BDS 2006, die IBDAC Komponenten sind neu von mir installiert worden. Wenn ich den Quellcode ausführe, so wird die neue Datenbank auf den Server abgelegt.

Auf der 2 VM läuft MS Windows 10 mit Delphi 10.3 es ist die gleiche Version der IBDAC Komponente installiert. Allerdings wenn ich den gleichen Quellcode ausführe bekomme ich folgende Fehlermeldung sieh unten.

Wenn die Datenbank einmal angelegt ist, kann man von beiden VMs eine neue Tabelle ohne Probleme auf den Server anlegen.

Meine Frage ist: Warum ist das so und wie kann man das abstellen kann?

Bis bald Chemiker