A ver si con este ejemplo te sirve para hacer lo que pretendes:
Código Delphi
[-]
procedure TIni.Button1Click(Sender: TObject);
Var
Fichero: TiniFile;
Begin
Fichero := TIniFile.Create ('D:/MiParadox.ini');
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; end;
procedure TIni.Button2Click(Sender: TObject);
Var
Fichero : Tinifile;
Begin
Fichero := Tinifile.Create ('d:/MiParadox.ini'); 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; end;
Un Saludo.