Oops, scratch that...

This is what it should be.

function TIBODataset.BookmarkValid( ABookmark: TBookmark ): Boolean;
var
BS: string;
ANodeRef: TIB_NodeRef;
begin
Result := false;
if Assigned( ABookmark ) then
begin
Result := true;
SetLength( BS, BookmarkSize );
Move( ABookmark^, BS[1], BookmarkSize );
InternalDataset.KeyFields.RowData := BS;
if InternalDataset.NodeList.LookupNode( KeyFields.RowBuffer,
true,
ANodeRef ) then
Result := not (( rfDeleted in ANodeRef.Node.RowFlags ) and
( InternalDataset.NodeList.FilterDel )) and
not (( rfFiltered in ANodeRef.Node.RowFlags ) and
( InternalDataset.NodeList.Filtered ));
end;
end;

Regards,
Jason Wharton
CPS - Mesa AZ
http://www.ibobjects.com