var marca : string; begin with miDataset do begin filter := 'Saldo>0'; filtered := true; first; marca := bookmark; filtered := false; bookmark := marca; end; end;