Окрашивание с ini файла

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, IniFiles, Menus;
 
type
  TForm1 = class(TForm)
    ComboBox1: TComboBox;
    Button1: TButton;
    Memo1: TMemo;
    Label1: TLabel;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    FontDialog1: TFontDialog;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  Ini:TIniFile;
  sFile:string;
  s:string;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
const
  Size = 100; //Наибольшее возможное количество групп.
  D = ['0', '1'];
var
  S : String;
  ArrPos : array[1..Size] of Integer;
  ArrStr : array[1..Size] of String;
  i, Len, Cnt, CntMin, Ind : Integer;
begin
Memo1.Clear;
 S := ComboBox1.Text;
  Len := Length(S);
  CntMin := Len;
  Cnt := 0;
  Ind := 0;
  for i := 1 to Len do begin
    //Пропускаем символы, не принадлежащие множеству D.
    if not (S[i] in D) then Continue;
    //Подсчёт элементов в группе.
    Inc(Cnt);
    //Отслеживаем конец очередной группы.
    if (i = Len) or (S[i] <> S[i + 1]) then begin
      //Если найдена более короткая группа.
      if Cnt < CntMin then begin
        CntMin := Cnt;
        Ind := 1; //Начинаем записывать сначала.
        ArrPos[Ind] := i - Cnt + 1; //Позиция самой короткой группы.
        ArrStr[Ind] := Copy(S, i - Cnt + 1, Cnt); //Группа.
      //Если найдена группа, равная по размеру текущей самой короткой группы.
      end else if Cnt = CntMin then begin
        Inc(Ind); //Добавляем группу.
        ArrPos[Ind] := i - Cnt + 1; //Позиция очередной самой короткой группы.
        ArrStr[Ind] := Copy(S, i - Cnt + 1, Cnt); //Группа.
      end;
      Cnt := 0; //Сброс счётчика.
    end;
  end;
 
  //Ответ.
  if Ind > 0 then begin
    Memo1.Lines.Add('Наименьшая длина группы = ' + IntToStr(CntMin)
      + #13#10'Всего групп: ' + IntToStr(Ind));
    Memo1.Lines.Add('Список самых коротких групп:');
    for i := 1 to Ind do
      Memo1.Lines.Add('Позиция: ' + IntToStr(ArrPos[i])
        + ', группа: "' + ArrStr[i] + '".');
  end else
    Memo1.Lines.Add('В строке нет групп.');
end;
 
 
 
procedure TForm1.FormCreate(Sender: TObject);
var
  APchar: array[0..254] of Char;
begin
//Формирование имени каталога Windows
  GetWindowsDirectory(APchar, 255);
//Формирование имени ini-файла в каталоге Windows
  sFile := string(APchar) + '\My.ini';
  if FileExists(sFile) then
 
   begin
    Ini := TIniFile.Create(sFile);
    Font.Name := Ini.ReadString('Параметры','Шрифт', 'MS Sans Serif');
    Font.color := stringtocolor( Ini.ReadString('Параметры' , 'Цвет шрифта', colortostring( Font.color )));
    Font.Size := ini.ReadInteger('Параметры' , 'Размер шрифта' , font.Size);
   end;
label1.Caption :='Выберите строку:';
Memo1.Clear;
end;
 
 
procedure TForm1.Button2Click(Sender: TObject);
var f : File;
begin
  if (not FileExists(sFile)) then
  begin
    AssignFile (f, sFile);
    Rewrite(f);
    CloseFile(f);
    Ini := TIniFile.Create(sFile);
  end;
 
  Ini.WriteString('File','main', ParamStr(0));
  Ini.WriteString('Параметры', 'Шрифт', Font.Name);
  Ini.WriteString('Параметры' , 'Цвет шрифта' , colortostring(Font.color));
  Ini.Writeinteger('Параметры' , 'Размер шрифта' , font.Size);
end;
 
 
 
 
procedure TForm1.Button3Click(Sender: TObject);
var F : File;
begin
 
  if FileExists(sFile) then
  begin
    AssignFile(F, sFile);
    Erase(F);
  end
end;
 
 
procedure TForm1.Button4Click(Sender: TObject);
begin
  if (FontDialog1.Execute) then
  begin
    Font.Assign(FontDialog1.Font);
    if (Ini<>nil) and Ini.ValueExists('Параметры','Шрифт')
    then
    Ini.WriteString('Парметры','Шрифт', Font.Name);
  end;
    begin
    Font.Assign(FontDialog1.Font);
    if (Ini<>nil) and Ini.ValueExists('Параметры','Размер шрифта')
    then
    Ini.WriteInteger('Парметры','Размер шрифта', font.Size);
  end;
end;
 
 
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
   if (Ini = nil) then Exit;
   Ini.UpdateFile;
   Ini.Free;
end;
 
 
end.

ExtractFilePath(ParamStr(0))+'inifile.ini'

Font.color := stringtocolor( Ini.ReadString('Параметры' , 'Цвет шрифта', colortostring( Font.color )));

Ini := TIniFile.Create(ExtractFilePath(ParamStr(0))+'inifile.ini');

sFile := ExtractFilePath(Application.ExeName) + 'My.ini';