Otimizando Querys:
if not Query.Prepared then
begin
Query.UniDirectional := True;
Query.Prepare;
end;
Query.Open;