Поиск и выборки в query

procedure TForm2.edt1Change(Sender: TObject);
begin
  qry1.Locate('probeg',edt1.Text,[loPartialKey, loCaseInsensitive]);
end;

var
a,b:string;
begin
  b:=qry1.fieldByName('nomavto').AsString;
  a:=qry1.fieldbyname('tabelnum').asstring;
qry1.Close;
  qry1.SQL.Clear;
  qry1.SQL.Add('delete from avto.db where nomavto="'+b+'";tabelnum="'+a+'";');
  qry1.ExecSQL;
  qry1.SQL.Clear;
  qry1.sql.add('select * from avto.db');
  qry1.Open;
end;

procedure TForm3.edt16Change(Sender: TObject);
var
  i:Integer;
  m:Integer;
begin    {Чего то не правильно сделал}
    i:=1;
    Form2.qry1.First;
    while i<=Form2.qry1.RecordCount do
    begin
      if form2.qry1.FieldByName('gruzpod').AsInteger = StrToInt(edt16.Text) then
        m:=Form6.qry1.fieldbyname('mgruza').asinteger
        else
        ShowMessage('Выберите другой автомобиль,выбранный вами автомобиль обладает меньшей грузоподъемностью');
      i:=i+1;
      Form2.qry1.Next;
    end;

 begin
    qry1.Edit;
    qry1.FieldByName('Nomer avtomobilya').AsString:=(dbedtNomeravtomobilya.Text);
    qry1.FieldByName('Marka avto').AsString:=dbcbbMarkaavto.text;
    qry1.FieldByName('Teh. sostoyanie').AsString:=dbcbbTehsostoyanie.text;
    qry1.FieldByName('Probeg').AsFloat:=StrToFloat(dbedtProbeg.Text);
    qry1.FieldByName('Gruzopodjemnost').AsInteger:=StrtoInt(dbedtGruzopodjemnost.text);
    qry1.FieldByName('Rashod').AsFloat:=StrToFloat(dbedtRashod.Text);
    qry1.post;
    form2.qry1.Close;
    Form2.qry1.Open;
  end;

procedure TForm3.dblkcbb3Exit(Sender: TObject);
begin
  if (dblkcbb3.Text = '') or (Edt16.Text = '') then Exit;
  Query1.SQL.Text := 'select gruzpod from avto where nomavto = "'+dblkcbb3.Text+'"';
  Query1.Open;
  if not Query1.Eof and (Query1['gruzpod'] < Edt16.Text) then
    ShowMessage('Âûáåðèòå äðóãîé àâòîìîáèëü,âûáðàííûé âàìè àâòîìîáèëü '+
                'îáëàäàåò ìåíüøåé ãðóçîïîäúåìíîñòüþ');
end;
 
procedure TForm3.edt14Exit(Sender: TObject);
var
  R : Integer;
begin
  if (dblkcbb3.Text = '') or (Edt14.Text = '') then Exit;
  Query1.SQL.Text := 'select Rashod from avto where nomavto = "'+dblkcbb3.Text+'"';
  Query1.Open;
  if not Query1.Eof then begin
    if TryStrToInt(edt14.Text, R) then
      edt15.Text :=  IntToStr(Query1['Rashod'] * R);
  end;    
end;