[ContraVeneno]

Tambien se puede con archivo .INI

Código Delphi [-]
var ini: TIniFile;
begin

  ini := TIniFile.Create(ExtractFilePath(ParamStr(0))+'Conex.ini');
  try
     UsuarioBase:=ini.ReadString('Matriz', 'Usuario', '');
     Clave:=ini.ReadString('Matriz', 'Clave', '');
     Base:=ini.ReadString('Matriz', 'BaseDatos', '');
     Servidor:=ini.ReadString('Matriz', 'Servidor', '');
     Alias:=ini.ReadString('Matriz', 'Alias', '');
  finally
    ini.Free;
  end;
  BaseDatos.AliasName:= Alias;
  BaseDatos.DatabaseName := Base;
  BaseDatos.Params.ValueFromIndex[0] := UsuarioBase;
  BaseDatos.Params.ValueFromIndex[1] := Clave;

  BaseDatos.Connected := True;