запись в ini файл

[cyx]

Есть (маленький тест):

1. procedure TForm8.Button5Click(Sender: TObject);
   begin
   Label2.Caption := 'За да ' + IntToStr(a) + ' голоса, за нет '+ IntToStr(b) + ' голосов'
   end;
   procedure TForm8.CheckBox2Click(Sender: TObject);
   begin
   a := a + 1;
   end;
   procedure TForm8.CheckBox3Click(Sender: TObject);
   begin
   b := b + 1;
   end;

Пожалуйста, опишите подробно, как записать его в ini файл, т.е. чтобы при следующем открытии результаты были такими же.

[Stilet]

Запись:

with TIniFile.Create('Файлик') do begin
 WriteInteger('Голоса','За',a);
 WriteInteger('Голоса','Против',a);
 free;
end;

Чтение:

with TIniFile.Create('Файлик') do begin
 a:=ReadInteger('Голоса','За');
 b:=ReadInteger('Голоса','Против');
 Button5.Click();
 free;
end;

[ZuBy]

Stilet, copy-paste зло))

WriteInteger('Голоса','Против',b);

[Stilet]

Ой точно... Зла не хватило )))