[Drozh]

Оу реально не заметил))) препиши так

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
 Ini: TIniFile;
 Count, i: Integer;
begin
 Ini := TIniFile.Create('C:\1.txt');

 ComboBox1.Items.Clear;
 ComboBox2.Items.Clear;
 ComboBox3.Items.Clear;

 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;