Ja to vidím asi takto:

procedure fillComboBox(cb:TComboBox); overload;   //prvá procedura
begin
  ....
end;

procedure fillComboBox(cb:TDBComboBox); overload;  //druhá procedura
begin
  ....
end;

var
  T1: TCombobox;
  T2: TDBCombobox; 
begin
  fillComboBox(T1);  //bude sa volať prvá procedura
  fillComboBox(T2);  //bude sa volať druhá procedura
end;