If Host <> '' then

    IBDB.DatabaseName := Host + ':';

  IBDB.DatabaseName := IBDB.DatabaseName + Database;

  IBDB.Params.Clear;

  IBDB.Params.Add(Format('USER "%s" PASSWORD "%s"', [Username, Password]));

  IBDB.Params.Add('PAGE_SIZE 4096');

  IBDB.Params.Add('DEFAULT CHARACTER SET CYRL');

  IBDB.LoginPrompt := FALSE;

  IBDB.SQLDialect := 3;

  IBDB.CreateDatabase;