problemas con tinifile
 

Hola!! A ver si alguien puede ayudarme xq estoy un poco perdida. Tengo un archivo .ini en el q e introduido :
Archivo = D:\projects\silvia\Datos.gdb
user_name = SYSDBA
password = masterkey
lc_ctype = ISO8859_1

Mi problema es q yo desd delphi tengo un procedimiento q crea este archivo y lo lee y el resultado lo almaceno en vbles globales. Tengo un Ibdatabase y el la propiedad de los parametros le introduzco las vbles anteriores y al abrir el ibdatabase es cuando me da un error 'DBP constant (user_name) is unknow.

Os doy el codigo para q me entendais mejor xq no se si me e explicado bien.

Código Delphi [-]
procedure Tform1.Iniconfig();
var
  Ini: TIniFile;
begin
  Ini := TIniFile.Create( ChangeFileExt(Application.ExeName, '.INI' ));
  try
    with ini do
    begin
      //El dtbdatos es el ibdatabase
      Dtbdatos1.DatabaseName := ReadString('Origen','Archivo','');
      user1 := ReadString('Origen','user_name','');
      password1 := ReadString('Origen','password','');
      tipo1 := readString('Origen','lc_ctype','');
    end;
    {DtbDatos2.Params.Add(Ini.ReadString('Destino','user_name',''));
    DtbDatos2.Params.Add(Ini.ReadString('Destino','user_name',''));}
  finally
    Ini.Free;
  end;
end;

procedure TForm1.abrirD1();
begin
  DtbDatos1.DefaultTransaction := TrnDatos1;
  DtbDatos1.LoginPrompt := false;
  Dtbdatos1.Params.Add('user_name = ' + user1);
  DtbDatos1.Params.Add('password = ' + password1);
  DtbDatos1.Params.Add('lc_ctype = ' + tipo1);
  DtbDatos1.Open;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  iniconfig();
  abrirD1();
end;

Muxas Gracias;

Hola otra vez! Ya tengo el fallo, lo digo x si a alguien le interesa deciros en lo q he fallado. Bueno en el procedimiento abrirD1() dond pone

Código Delphi [-]
Dtbdatos1.Params.Add('user_name = ' + user1);

y en los siguientes params el igual debe estar junto.

Código Delphi [-]
Dtbdatos1.Params.Add('user_name=' + user1);

gracias de todas formas