[Black Raider]

Все Замечательно должно работать.

Код:

var tb:Tbookmark;
begin
  tb:=IBQuery4.GetBookmark;
   ibquery4.Active:=false;
   ibquery4.ParamByName('id').Value:=ibquery5.fieldbyname('id').AsInteger;
   ibquery4.Active:=true;
  ibquery4.GotoBookmark(tb);
  ibquery4.FreeBookmark(tb);
end;