Analogia con Clipper

[JorgeBec]

Solo para aclarar Roman entonces de acuerdo al ejemplo que me das quedaria asi


procedure Prorrateo(Query: TQuery);
begin
dmDatos.Query.First;
....Mas lineas

end;


???