[Drozh]

Не не!!! Читаешь файл как ini!!!

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
 Ini: TIniFile;
 Count, i: Integer;
begin
 Ini := TIniFile.Create('C:\1.txt');
 Count := Ini.ReadInteger('[ComboBox1]', 'Records', 0);
  for i := 1 to Count do
   ComboBox1.Items.Add(Ini.ReadString('[ComboBox1]', 'Name'+IntToStr(i), ''));

 Count := Ini.ReadInteger('[ComboBox2]', 'Records', 0);
  for i := 1 to Count do
   ComboBox2.Items.Add(Ini.ReadString('[ComboBox2]', 'Name'+IntToStr(i), ''));

 Count := Ini.ReadInteger('[ComboBox3]', 'Records', 0);
  for i := 1 to Count do
   ComboBox3.Items.Add(Ini.ReadString('[ComboBox3]', 'Name'+IntToStr(i), ''));

 Ini.Free;
end;

А записываешь так

Код:

procedure TForm1.Button2Click(Sender: TObject);
var
 AFile: TextFile;
 Count, i: Integer;
begin
 AssignFile(AFile, 'C:\1.txt');
 Rewrite(AFile);

 WriteLn(AFile, '[ComboBox1]');
 Count := ComboBox1.Items.Count;
 WriteLn(AFile, Format('Records = %d', [Count]));
  for i := 1 to Count do
   WriteLn(AFile, Format('Name%d = %s', [i, ComboBox1.Items.Strings[i-1]]));

 WriteLn(AFile, '[ComboBox2]');
 Count := ComboBox2.Items.Count;
 WriteLn(AFile, Format('Records = %d', [Count]));
  for i := 1 to Count do
   WriteLn(AFile, Format('Name%d = %s', [i, ComboBox2.Items.Strings[i-1]]));

 WriteLn(AFile, '[ComboBox3]');
 Count := ComboBox3.Items.Count;
 WriteLn(AFile, Format('Records = %d', [Count]));
  for i := 1 to Count do
   WriteLn(AFile, Format('Name%d = %s', [i, ComboBox3.Items.Strings[i-1]]));

 CloseFile(AFile);
end;

А выбор можешь сделать RadioButton'ами