[and.enk]

Может не правильно понял ТЗ, вот так не пойдёт?

Код:

procedure TForm1.ComboBox1Change(Sender: TObject);
 var i:integer;
begin
 i:= ComboBox1.ItemIndex;
 if i > -1 then
  begin
   ComboBox2.ItemIndex :=i;
   ComboBox3.ItemIndex :=i;
  end;
end;