[Страдалецъ]

Ну сделайте так:

Код:

...
ADOQuery5.First;
while not ADOQuery5.Eof
do begin
...

ПС:

Код:

ADOQuery5.Active:=False;
ADOQuery5.Close;

Это тоже 2 аналогичные комманды, выберите одну.