Ini Write, zu rechenintensiv?!?

[Hallo_Thomas]

Hallo ich erstelle eine Ini die ungefähr so aussieht:

Delphi-Quellcode:

procedure TiniEinstell.WriteOption;
var ini: TIniFile;
    i,y:Integer;
    iString:WideString;
    Felder:Array [1..15]of WideString;
begin
  Ini:=TIniFile.Create(ExtractFilePath(application.Exename)+'Einstellungen\data.ini');
  ini.UpdateFile;
  for i := 1 to 45 do
  begin
    iString:=IntToStr(i);
    Ini.WriteBool('Aktivierung', 'Checkbox'+iString, (Form2.FindComponent( 'Checkbox'+(iString)) as TCheckbox).Checked); //45
  end;
  Ini.WriteInteger('Rot', 'blau', Form2.Rot.Value);
..................{Insgesamt 45xBool,200xInteger,160xFloat..Soll noch grösser werden}  
Ini.Free;
end;

Damit is mei Rechner erst mah kurz voll ausgelastet,{Insgesamt 45xBool,200xInteger,160xFloat}den Spass in ne Ini zu schreiben.Gibt es da schnellere verfahren, bzw. Irgendwas, um die Sache zu beschleunigen?