[Delphi]funkcja z ComboBox

elo
mam ComboBox który wyciaga dane z bazy MySQL, wszystko działa i jest git...
... ale teraz chcę aby to samo robiły inne ComboBox'y (mam ich kilka) i chce stworzyć funkcję aby to obsługiwała niestety bezskutecznie :(
kod dla jednego Combo

procedure TMainForm.cmbOpis1DropDown(Sender: TObject);
var
i : integer;
begin
cmbFirmy1.Items.Clear;
SQL.CommandText:='SELECT * FROM ogloszenia';
SQL.Open;

for i :=1 to SQL.RecordCount do
  begin
  cmbOpis1.Items.Add(SQL.FieldValues['opis']);
  SQL.Next;
  end;

SQL.Close;
end;

z góry dzięki za pomoc

pozdrawiam
piotr

Dla każdego z ComboBoxów zadeklaruj w polu Hint nazwę tabeli (lub stworzyć jakąś globalną tablicę stringów zawierającą nazwy tabel, wtedy indexem tablicy może być Tag ComboBoxa), a następnie pod każdego ComboBoxa możesz podpiąć to:

procedure TMainForm.cmbOpis1DropDown(Sender: TObject);
var
  i: Integer;
begin
  (Sender as TComboBox).Items.Clear;
  SQL.CommandText:='SELECT * FROM ' + (Sender as TComboBox).Hint;
  // lub
  //SQL.CommandText:='SELECT * FROM ' + TableNames[(Sender as TComboBox).Tag];
  SQL.Open;

  for i := 1 to SQL.RecordCount do
    begin
      (Sender as TComboBox).Items.Add(SQL.FieldValues['opis']);
      SQL.Next;
    end;
  SQL.Close;
end;

Dzięki wielkie
Działa :d

pozdrawiam
piotr