Supongo que tendrias que pasar resultado recogido de busqueda y pasarlo por parametros al de la consulta. Quiza algo asi:
Código:
public
clave:integer;
....
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
clave:=DataSet1.FieldByName('clave').AsInteger;
end;
Y asi que el dbgrid de consulta se posiciona donde se encuentra esta clave.