INI. Записать цвет текста и значение true или else.

Uses IniFiles;
 
Var
  Ini : TIniFile;
 
//В событии FormCreate
Ini := TIniFile.Create(ExtractFilePath(ParamStr(0))+'имя файла');
 
 
i:=Ini.ReadInteger('Секция','ключ', i); //Прочитали значение i (Integer) из файла
s:=Ini.ReadString('Секция','ключ', s); //Прочитали значение s (String) из файла
b:=Ini.ReadBool('Секция','ключ', b); //Прочитали значение b (Boolean) из файла
r:=Ini.ReadFloat('Секция','ключ', r); //Прочитали значение r (Real) из файла
 
 
Ini.WriteInteger('Секция','ключ', i);    //Записали значение i (Integer) в файл
Ini.WriteString('Секция','ключ', s);    //Записали значение s (String) в файл
Ini.WriteBool('Секция','ключ', b);     //Записали значение b (Boolean) в файл
Ini.WriteFloat('Секция','ключ', r);    //Записали значение r (Real) в файл
 
//В событии FormClose
Ini.Free; //Демонтировать...

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, iniFiles, StdCtrls;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  IniFile: TIniFile;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
var
color:string;
begin
color:=colortostring(Label1.Color);
IniFile:=TIniFile.Create('E:\Program Files\Borland\Delphi7\Projects\test.ini');
inifile.ReadString('color', 'Label1.Color', color);
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
inifile.WriteString('color', 'Label1.Color', colorTostring(Label1.Color));
inifile.Free;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Color:=clRed;
end;
 
end.

color:=inifile.ReadString('color', 'Label1.Color', color);