Crear procedimiento !!!

[Ledian_Fdez]

Holas amigos de este foro:
Lo que me propongo es lo siguiente:

Este código lo repito en casi todos los formularios en el evento FormShow.

Código Delphi [-]
procedure TTallerForm.FormShow(Sender: TObject);
begin
 DM.QrProv.Open;
 DM.QrProv.First;
 While not DM.QrProv.Eof do
    begin
     ComboBox1.Items.Add(DM.QrProvcodp.AsString);
     DM.QrProv.Next;
    end;
 DM.QrProv.Close;
end;

Intento hacer un procedimiento en el DM (Data Module) para llamarlo desde cualquier lugar, pero no hallo cómo hacerlo ya que no se como referirme a cada uno de los formularios.

nota: A los formularios les asigno memoria dinámica.

gracias de antemano
saludos Ledian