[borockov]

Код:

procedure TForm2.Button2Click(Sender: TObject);
var
tmp_id:Integer;
begin
ADOquery1.SQL.Text:=('SELECT  * from Патент where [Информация о прототипе] LIKE "%' + Edit1.Text + '%"');
ADOquery1.Open;
ADOquery2.SQL.Text:='SELECT  * from Патент where [Информация о прототипе] LIKE "%' + Edit1.Text + '%"';
Adoquery2.Open;
Adoquery2.RecordSet.MoveFirst;
if (not Adoquery2.BOF)or(not Adoquery2.EOF)
then
   begin
   tmp_id:=Integer(AdoQuery2.Recordset.Fields[0].Value); //Здесь подразумевается что у тебя в первой колонке таблицы Патент стоит уникальный код.
   DBGrid1.DataSource.DataSet.Locate('id', tmp_id, []);
   end
else ShowMessage('Что то не нахожу');
Adoquery2.Close;

end;