Filtrado de una tabla.

[fortran]

Tienes toda la razón nos ahorramos un par de líneas.

Con respecto a lo del application no he dado con ello. Probablemente porque no se la sintaxis que debo poner.
He probado varias cosas con distintos resultados (pero todos negativos) . He probado a poner

Q:= application.create(TQuery);

y me dice:
[Error] UtilidadesAplicacion.pas(56): Incompatible types: 'TComponent' and 'Class reference'

También he probado:

Q:= application.create(self);

y me dice:

[Error] UtilidadesAplicacion.pas(56): Undeclared identifier: 'self'