Помогите плиз найти ошибку, и если не трудно скажите как исправить...

procedure AllLabels;
 
 begin
   with ADOQuery1 do
      begin
       with SQL do
        begin
          Clear;
           Add('Select Dictat1.Ukey, Dictat1.Eng, Dictat1.Rus, Dictat1.statistic');
           Add('From Dictat1');
           Add('WHERE(UKey = ' + inttostr(rand1) + ') OR (UKey = ' + inttostr(rand2) + ') OR (UKey = ' + inttostr(rand3) + ') OR (UKey = ' + inttostr(rand4) + ') OR (UKey = ' + inttostr(rand5) + ')');
           open;
           Label1.Caption:=FieldValues['rus'];
           Next;
           label2.Caption:=FieldValues['rus'];
           Next;
           Label3.Caption:=FieldValues['rus'];
           Next;
           Label4.Caption:=FieldValues['rus'];
           Next;
           Label5.Caption:=FieldValues['rus'];
           First;
           MoveBy(randl);
           label6.Caption:=FieldValues['eng'];
           vopros:=FieldValues['rus'];
           Label6.Caption:=pred;
           pred:=FieldValues['eng'];
           Close;
         end;
      end;
 end;

procedure TForm1.Label5Click(Sender: TObject);
begin
if label5.Caption=Vopros then
repeat
begin
repeat
randomize;
rand1:=random(32);
rand2:=random(32);
rand3:=random(32);
rand4:=random(32);
rand5:=random(32);
randl:=random(5);
until (rand1>rand2)and(rand1>rand3)and(rand1>rand4)and(rand1>rand5)and(rand2>rand3)and(rand2>rand4)and(rand2>rand5)and(rand3>rand4)and(rand3>rand5)and(rand4>rand5)and(rand1 > 0) and (rand2 > 0) and (rand3 > 0) and (rand4 > 0) and (rand5 > 0);
  begin
      AllLabels();
     with ADOQuery1 do begin // здесь пишет ошибку :(
      with SQL do begin
 
     Add('Update Dictat1 SET dictat1.Statistic =  LTrim(Str(Statistic+1))   WHERE (UKey =' + inttostr(rand4) + ' )');
      open;
      end;
      end;
      end;
   end
     until
     pred=label6.caption
     else
     with ADOQuery1 do begin
      with SQL do begin
     Add('Update Dictat1 SET dictat1.Statistic =  LTrim(Str(Statistic-1))   WHERE (UKey =' + inttostr(rand4) + ' )');
      open;
      end;
      end;
 
end;