¿Como creo una tabla desde un fichero .ini?

[Thoma]

Cuando me crea la BD según el código que os muestro a continuación, se me abre una ventana pidiéndome el usuario y la password
¿como es posible si lo tengo definido al crea la BD?

Código Delphi [-]


//------------------------------------------------------------------------------
//********************************************[ CReamos La Base De Datos ]******
//------------------------------------------------------------------------------
function crearBD (unidadBD, rutaBD, nameBD, extBD:string; empresaBD:Integer):Boolean;
var
   sEmp:string;
begin
  result := false;
  if empresaBD < 10 then begin
    sEmp:='0'+ IntToStr(empresaBD);
  end else begin
    sEmp:=IntToStr(empresaBD);
  end;
  if empresaBD=0 then sCad:= unidadBD+rutaBD+nameBD+extBD
                 else sCad:= unidadBD+rutaBD+nameBD+sEmp+extBD;
  try
    //--------------------------------------------------------------------------
    //*********** [ creamos la base de datos ]
    //--------------------------------------------------------------------------
    DMSistema.dbCrearBd.DatabaseName := sCad;
    DMSistema.dbCrearBd.Params.Clear;
    DMSistema.dbCrearBd.Params.Add('user ''SYSDBA''');
    DMSistema.dbCrearBd.Params.Add('password ''masterkey''');
    DMSistema.dbCrearBd.Params.Add('PAGE_SIZE = 4096');
    DMSistema.dbCrearBd.SQLDialect := 3;
    DMSistema.dbCrearBd.CreateDatabase;
    //--------------------------------------------------------------------------
    //*********** [ creamos la Tabla de usuarios ]
    //--------------------------------------------------------------------------
       sCad:= unidadBD+ruta+'usuarios.sql';
       sSQL:=LeerCampoIni('Tablas','TUsuarios',sCad);
       if sSQL<>'' then begin
         if DMSistema.dbCrearBd.Connected then DMSistema.dbCrearBd.Connected:=False;
          DMSistema.dbCrearBd.DatabaseName:=NameBD;
          DMSistema.dbCrearBd.Connected:=True;
          with DMSistema.ScriptBD do try
            DMSistema.ScriptBD.Script.LoadFromFile(sSQL);
            DMSistema.ScriptBD.ExecuteScript;
          except
          end;
       end;

    result := True;
  except
    result := false;
  end;
end;