Slow recordcount

Ved et gennemløb af en query - kan man så
bevirke at der stoppes et par sec. ved hver record.

En eller anden 'wait' kommande eller såån.





procedure TForm1.Button11Click(Sender: TObject);
var
i: integer;
begin
with ProgressBar1 do
begin
Min:=0;
Max:= ADOQuery1.RecordCount;
ADOQuery1.First;
for i:= min to max do
begin
Position:=i;
ADOQuery1.next;
end;
end;
Label5.Caption := IntToStr(adoQuery1.RecordCount);
end;