procedure RemoveFilter(dbf :integer);

var
  dbf :integer;
begin
  dbf := OpenBase( 'filename.dbf' );
  if dbf <> 0 then
  begin
    SetFilter(dbf, 'NAME=Andy');
    // some code
    RemoveFilter(dbf);
    CloseBase(dbf);
  end;
end.