ADOQuery usando muita memória do SQL

Olá Pessoal,

Estou com uma aplicação que está consumindo muito a memória do SQL
Server. Cerca de 100¬ da memória da máquina disponilizada para o SQL Server.

A aplicação fica rodando 24 hs. De 10 em 10 segundos.

Trecho de código onde cresce.

qryPrincipal.Close;
qryPrincipal.SQL.Text := ´SELECT NUMERO FROM OCORRENCIA´;
qryPrincipal.Open;
while not qryPrincipal.eof do
begin
qryConsulta.Close;
qryConsulta.SQL.Text := ´SELECT * FROM HISTORICO WHERE NUMERO = ´ + qryPrincipal.FieldByName(´NUMERO´).AsString;
qryConsulta.Open;
qryConsulta.Close;
qryPrincipal.Next;
end;

O problema é que a memória só começa a crescer depois que passa cerca de 200 registros da tabela da qryPrincipal.
Depois que paramos a aplicação, a memória não desce.

Será que estou deixando o AdoQuery armazendo dados e não estou limpando?

Muito Obrigado desde já.