Hjælpe funktion med parameter

Jeg har en hjælpe funktion som skal have objekt af typen combobox med som parameter. Hvordan skal dette skrives.
Hvis denne kode eksempelvis i stedet for at arbejde med en bestemt combobox skal kunne gøre det for forskellige comboboxe.

procedure udfyldComboFag;
var
i: integer;
r: integer;
begin
r := 1;

  with hovedform do
  begin
      while r < ComboBoxfag.Items.Count do
      begin
      ComboBoxfag.Items.Delete(r);
      ComboBoxfag.
      r := r + 1;
      end;
  end;

i := 0;
  while i < NotatdataModul.FagTabel.RecordCount do
  begin
    with notatdatamodul do
    begin
    FagQuery.SQL.Clear;
    FagQuery.sql.add(\'select Fag\');
    FagQuery.sql.add(\'from Fag\');
    FagQuery.sql.add(\'where Nummer = :IDENT\');
    FagQuery.ParamByName(\'IDENT\').ASINTEGER := i;
    FagQuery.open;
    if FagQuery.recordcount > 0 then
        hovedform.ComboBoxfag.Items.Add(FagQuery.fields[0].value);
    end;
  i := i + 1;
  end;

end;

Mads