Analogia con Clipper

[guillotmarc]

Hola Jorge.

Pues casi tienes bien el código, solo te falta indicar que el parámetro que pasas es de tipo TQuery (pasa directamente el Query, no una cadena con el nombre del Query para usarlo en una macro) ... y a correr :

Prorrateo(dmDatos.qryVentas); /* Pasas realmente el Query */
...
...
Prorrateo(dmDatos.qryVentas2);

Function Prorrateo(pQuery: TQuery) /* En el parámetro indicas que pasas un Query */
begin
pQuery.First; /* Puedes trabajar normalmente con el Query */
....
end;

NOTA: He puesto TQuery asumiendo que es un Query del BDE, pero deberias cambiarlo por TADOQuery, TSQLQuery, TIBQuery, ... si estas usando ADO, BDE, IBX, ...

Saludos.