[Gudzik11]

Делал так всё заработало.

Код:

procedure TForm1.Button1Click(Sender: TObject);
var s : string ;
begin
  getdir (0,s);
 ini:=TIniFile.Create(s+'\1.ini');
  ShowMessage(s+'\1.ini');
  with ini do
    begin
    WriteBool('Box','CheckBox1',CheckBox1.Checked);
   WriteBool('Box','CheckBox2',CheckBox2.Checked);
   WriteBool('Box','CheckBox3',CheckBox3.Checked);
   WriteBool('Radio','RadioButton1',RadioButton1.Checked);
   WriteBool('Radio','RadioButton2',RadioButton2.Checked);
  end;
end;