Está claro, creo que lo que puedes hacer es pasar el combo como parámetro del prcedimiento. Entonces:
Código Delphi
[-]
procedure DM.Carga_Cuadro_Combinado(MyCombo:TComboBox);
begin
QrProv.Open;
QrProv.First;
While not QrProv.Eof do
begin
MyCombo.Items.Add(DM.QrProvcodp.AsString);
QrProv.Next;
end;
QrProv.Close;
end;
y para llamarlo desde el form
Código Delphi
[-]
DM.Carga_Cuadro_Combinado(ComboBox1);
Saludos.