Delphi - Crear un Query en ejecución

Como Puedo Crear un Query en tiempo de jecucion, lo qu e sucede este quiuero hacer un procedimiento recursivo para ello nesesito crear una buesqueda en una base de datos cada vez que se entre al procedimento.

Añado una variable
Var
Query1 : TQuery

Pero al momento de activar el sql me marca que no se ha inicializado el Query, si alguien me puediese ayudar se lo agrdeceria.

No se si es esto lo que necesitas .

Pones un tQuery en el form o declaras una variable de tipo tQuery, en este último caso tenes que inicializarla llamando a su método create.

Var
Qry :tQuery ;
Begin
Qry := TQuery.Create(Self) ;
Qry.Active := False ;
With Qry.Sql Do
Begin
Clear ;
// Aqui agregas tu código SQL
Add('Select *');
Add('From "C:\aa.db"');
End ;
Qry.Active := True ;

End ;

Cuando termines de usar el tQuery llamas
Qry.free ;