Код:
procedure TForm1.Button2Click(Sender: TObject);
var i : integer;
begin
For i:=0 to ComboBox1.Items.Count do begin
AppIni.WriteString('Combo1',IntToStr(ComboBox1.ItemIndex),ComboBox1.Items[ComboBox1.ItemIndex]);
ComboBox1.ItemIndex:=ComboBox1.ItemIndex+1;
end;
end;
Вот так можешь сохранять в файл...