Одинаковые параметры в двух DBCombobox

type   TForm1 = class(TForm)
         ...
       private
         predators, herbivorous: TStringList; // определяем списки
  ...

procedure TForm1.FormCreate(Sender : TObject);
begin
 predators := TStringList.Create; //создаем списки в форме
 herbivorous := TStringList.Create;
 
 predators.LoadFromFile('a.txt'); // загружаем текст из файлов
 herbivorous.LoadFromFile('b.txt');

 ComboBox1.Items.AddStrings(Form1.predators); // в первый combobox - хищников
end;

procedure TForm1.ComboBox1Change(Sender : TObject);
begin
 // если user нажмет на первый combobox, то
 ComboBox2.Items.Clear; //очищаем второй
 case ComboBox1.ItemIndex do
  0: begin // если выбран первый хищник
       ComboBox2.Items.Append(herbivorous.Strings[1]); // добавляем нужных травоядных
       ComboBox2.Items.Append(herbivorous.Strings[2]);
     end;
  1: begin
    // выбран другой хищник - других травоядных
       ComboBox2.Items.Append(herbivorous.Strings[0]);
       ComboBox2.Items.Append(herbivorous.Strings[3]);
     end;
 end;
end;