BitBtn В ini файл

procedure TForm1.FormCreate(Sender: TObject) ;
var
  F: TextFile;
  V: String;
begin
  with OpenDialog1 do
    if Execute then
      begin
        AssignFile(F, FileName);
        Reset(F);
        while (not EOF(F)) do
          begin
            Readln(F, V);
            Кнопка.Index := StrToInt(V);
          end;
      end;
............
............
end;
 
 
procedure TForm1.КнопкаClick(Sender: TObject);
var
  F: TextFile;
begin
.........
.........
  with SaveDialog1 do
    if Execute then
      begin
        AssignFile(F, FileName);
        Append(F);
          Rewrite(F);
          WriteLn(F, IntToStr(Кнопка.Index));
        CloseFile(F);
      end;
end;

procedure TForm1.FormCreate(Sender: TObject) ;
var
  F: TextFile;
begin
        AssignFile(F, FileName);
        FN := FileName;
        Reset(F);
        while (not EOF(F)) do
          begin
            Readln(F, V);
            ComboBox1.ItemIndex := StrToInt(V);
          end;
  CloseFile(F);
//  ComboBox1Set;
end;