Запросы в ADOQuery и DBGrid

procedure TMain.Button1Click(Sender: TObject);
begin
if edit1.Text='' then
begin
ShowMessage('Введите данные');
abort();
end
else
begin
modul.Reader.SQL.Clear;
modul.Reader.SQL.Add('select * from reader where RId='+Edit1.Text);
modul.Reader.Open;
end;
if modul.reader.RecordCount<>0 then
modul.DataSourceR.DataSet:=modul.Reader
else
begin
ShowMessage('В БД нет записей, удовлетворяющих критерию запроса.');
abort();
end;
end;

modul.Movebook.SQL.Clear;
modul.Movebook.SQL.Add('delete from movebook where MBook='+ edit5.Text+'and MChack is not null');
modul.Movebook.ExecSQL;
modul.Movebook.SQL.Clear;
modul.Movebook.SQL.Add('select * from movebook where MReader=RId');
modul.Movebook.Open;

IBQuery1.Close;
 
IBQuery1.Params.Clear;
IBQuery1.SQL.Text:='select MChack from movebook where MBook='+ edit5.Text+'';
IBQuery1.Open;
While not IBQuery1.Eof do begin
if IBQuery1.FieldbyName('MChack').AsString) <>'' then do your work else showmesage('книгу не сдали');
IBQuery1.Next;
end;

procedure TBookOfReader.Button7Click(Sender: TObject);
begin
  modul.Movebook.SQL.Clear;
  modul.Movebook.SQL.add('select MChack from movebook where MBook='+edit5.Text+'and MReader=RId');
  modul.Movebook.Open;
  if modul.Movebook.FieldByName('MChack').AsString='' 
  then
  begin
    showmessage('the reader don"t chack this book');
    abort();
  end
  else
  begin
    modul.Movebook.SQL.Clear;
    modul.Movebook.SQL.Add('delete from movebook where MBook='+ edit5.Text+'and MChack is not null');
    modul.Movebook.ExecSQL;
    modul.Movebook.SQL.Clear;
    modul.Movebook.SQL.Add('select * from movebook where MReader=RId');
    modul.Movebook.Open;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
  adoquery1.SQL.Clear;
  adoquery1.SQL.Add('select * from movebook where Mreader='+edit2.Text);
  adoquery1.Open;
  adoquery1.First;
  i:=0;
  while not adoquery1.Eof do      
    begin
     ADOQuery1.SQL;
     if (adoquery1.FieldByName('MChack').AsString='') 
      then
      begin
       SHowMessage ('Is empty');
       adoquery1.Last;
       i:=i+1;
     end
     else
       adoquery1.Next;      
   end;
   if (adoquery1.FieldByName('MChack').AsString<>'') and (i=0) then
     showmessage('Is here');
   if adoquery1.RecordCount=0 then
     Showmessage('Is absence') 
end;