Как получить уникальную строку из множество записей?

query.sql.add ( 'Where id=(выделенная строка из ДБГРИД по поиску)' );

query.sql.add ( 'Where id=' + qDataset.FieldByname('ID').AsString  );

ADOQuery1.SQL.Add('WHERE id='+dbgrid2.DataSource.DataSet.Fields.FieldByName ('id').AsString);

DOQuery1.Active:=false;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('INSERT INTO таб1(id, номер) ');
ADOQuery1.SQL.Add('SELECT id, номер');
ADOQuery1.SQL.Add('FROM таб2');
ADOQuery1.SQL.Add('WHERE id='+dbgrid2.DataSource.DataSet.Fields.FieldByName ('id').AsString);
ADOQuery1.ExecSQL;
ADOQuery1.SQL.Text:='SELECT * FROM таб1';
ADOQuery1.Active:=true;

dbgrid2.DataSource.DataSet

ADOQuery2.FieldByName('id').asString

ADOQuery1.SQL.Add('WHERE id='+adoquery2.FieldByName('id').AsString);

ADOQuery1.SQL.Add('WHERE id=:id');
ADOQuery1.Parameters.ParamByName('id').Value:=Edit1.Text;

s := 'select * from mytable ';
s := s + 'WHERE id='+adoquery2.FieldByName('id').AsString;
ADOQeury1.SQL.Text = s;

ADOQuery1.SQL.Add('WHERE id=:id');
adoquery1.Parameters.ParamByName('id').Value:=adoquery2.FieldByName('id').AsString;

ADOQuery1.SQL.Text:='SELECT * FROM id WHERE = ' +Edit1.Text;
ADOQuery1.Open;