[[maeyanes]]

Hola...

Puedes intentar con este código:

Código Delphi [-]
var
  AQuery: TQuery;

begin
  with TQuery.Create(nil) do
    try
      // Asignas valores a propiedades como Database, etc...
      SQL.Text := 'select * from Datos where Historico = No';
      Open;
      If not IsEmpty then
        // Procesar datos
      Close
    finally
      Free
    end
end;

De esta forma dentro de la función creas, usas y destruyes el objeto...

Ahora, si te fijas, usé el método Free para destruir el objeto, no Destroy...



Saludos...