[roman]

Simplemente declaras un parámetro de tipo TQuery:

Código Delphi [-]
procedure Prorrateo(Query: TQuery);
begin
end;

y le pasas cualquiera de los Query:

Código Delphi [-]
Prorrateo(qryVentas);
Prorrateo(qryVentas2);

etcétera

// Saludos