Fórum memória insuficiente (diferente dos outros problemas citados #289389

Por que está dando erro de memória insuficiente no código abaixo?
Não consigui achar o erro... Não está criando nada sem dar free...
Quem puder me ajudar...
Grato

while ( ADOQueryImport.Eof = False ) do
begin
sqlCommand := ´INSERT INTO TC6_POST_TARIFF ....)
ADOQuerySystem.SQL.Add( sqlCommand );
sqlCommand := ´´;
inc(regCount);

if ( regCount mod 100 = 0 ) then begin
ADOQuerySystem.SQL.Add(´END;´);
ADOQuerySystem.ExecSQL;
ExecutaCommit;
Application.ProcessMessages;
Memo1.Lines.Add( ´Importados ´ + IntToStr( regCount )+ ´ registros´ );
ADOQuerySystem.SQL.Clear;
ADOQuerySystem.SQL.Add(´BEGIN´);
end;

Gauge1.AddProgress(1);
ADOQueryImport.Next;
end;