Ну можно и через списки:
var
Spisok1:TStringList;
Spisok2:TStringList;
procedure TForm1.FormCreate(Sender: TObject);
begin
ComboBox1.Items.Assign(Spisok1);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
ComboBox1.Items.Assign(Spisok1);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ComboBox1.Items.Assign(Spisok2);
end;
Или можно удалять и добавлять строки в комбобокс:
procedure TForm1.Button1Click(Sender: TObject);
begin
ComboBox1.Items.Delete(2);//удаление строки с индексом 2 (индексация с 0)
ComboBox1.Items.Insert(2, 'Новая строка');
end;
Можешь скачать
res6.narod.ru/help/Help.zip русский Help Архангельского для Delphi6, встраивающийся в среду разработки. Это не демо-версия, полностью функциональная крякнутая версия.