Wskazniki do komponentów? problem z data Base

Witam!
Mam nastepujacy problem, przy inicjalizacji programu, chce, aby powiedzmy 10 ComboBoxow zapelnialo sie jako items nazwami tabel z jakiejs tam bazy danych. Chce to zrealizowac w formie procedury no i tu pojawiaja sie schody. Nie wiem jak w takiej procedurze odwolywac sie do kolejnych comboboxow albo nawet nie kolejnych a do dowolnych tak zeby ta procedura byla uniwersalna. To po pierwsze primo :)
Po drugie primo jest taki temat, zeby zawartosc plo jednego comboboxa automatycznie odswierzala sie po wybraniu wlasnie jakiejs tam tabeli z inego Combosa. Czyli wybieram powiedzmy z Combo1 tabele pierwsza a w Combo2 AUTOMATYCZNIE pojawiaja sie jako items nazwy pol z tejze wybranej tabeli.

Porsze o nawet inne lub w ogóle jakies podpowiedzi ktore moga mnie przyblizyc do rozwiazania tych problemow. Bo jesttem zupelnie swiezym uzytkownikiem Delphi

pozdrawiam wszystkich
Kuba
ps chodzi mi o to zeby taki kod zapisac bardziej efektywnie i uniwersalnie:

ComboBox2.Items:=OECatalog1.TableNames;
  ComboBox3.Items:=OECatalog1.TableNames;
  ComboBox4.Items:=OECatalog1.TableNames;
  ComboBox5.Items:=OECatalog1.TableNames;
...
// i jeszcze takie cos
procedure TMainFrm.ComboBox2Select(Sender: TObject);
var
  I: integer;
begin
  with OEQuery2 do
  begin

  SQL.Clear;
  TableName:=Combobox2.Text;
  Active:= True;
  SQL.Append('select * from '+ComboBox2.Text);
  ComboBox6.Clear;
  try
   Open();
     for I:=0 to FieldList.Count-1 do
    begin
    ComboBox6.Items.Add(FieldList.Strings[i]); //tutaj numer Comboboxa zmienia sie 
    end;          // tak ze np dla combo2->combo6, combo3->combo7 itd..... 

  except
   ShowMessage ('Blad bazy danych');
  end; //end of except
end;