[marcoszorrilla]

Ok, creo que hablé un poco mal el tono. Perdón.

Está bien reconocer los fallos, efectivamente te han dado el camino a seguir para que puedas llevar a buen fin lo que pretendes.

Aquí tienes el ejemplo que pides, como tal ejemplo no hace exactamente lo que tu quieres pero esa parte la dejo para ti.

Código Delphi [-]
  
  procedure TIni.Button1Click(Sender: TObject);
  Var
  
  Fichero: TiniFile;
  Begin
  Fichero := TIniFile.Create ('D:/MiParadox.ini'); // Accedemos al Fichero
  
  //Leemos el INI
  //Read+TipoDato(Seccion - Tipo_Dato - Valor que tomará sino hay nada)
  Edit1.text:=Fichero.ReadString ('NetDir','String','Error');
  Edit2.text:=Fichero.ReadString ('TempDir','String','Error');
  CheckBox1.Checked:=Fichero.Readbool('LocalShare','Booleano',False);
  Edit3.Text:=IntToStr(Fichero.ReadInteger('Usuarios','Integer',-1));
  Edit4.Text:=DateToStr(Fichero.ReadDate('Fecha','Date',Date));
  Edit5.Text:=Fichero.ReadString ('Letra','String','Arial');
  lbtipoletra.Font.Name:=Fichero.ReadString ('Letra','String','Arial');
  lbTipoletra.Color:=Fichero.ReadInteger ('Color','Integer',clBlue);
  Fichero.Free; // Cerramos el Fichero
  end;
  
  procedure TIni.Button2Click(Sender: TObject);
  Var
  Fichero : Tinifile;
  Begin
  Fichero := Tinifile.Create ('d:/MiParadox.ini'); // Accedemos al Fichero
  //Guardamos el INI
  //Sección - Tipo_Dato - Valor
  MiColor:=clBlue;
  Fichero.WriteString ('NetDir','String','MiDir');
  Fichero.WriteString ('TempDir','String','OtroDir');
  Fichero.Writebool ('LocalShare','Booleano',False);
  Fichero.WriteInteger('Usuarios','Integer',22);
  Fichero.WriteDate('Fecha','Date',Date);
  Fichero.WriteString('Letra','String','Symbol');
  Fichero.WriteInteger('Color','Integer',MiColor);
  Fichero.free; //Cerramos el Fichero.
  end;

Un Saludo.