Schöner ist allerdings...
Delphi-Quellcode:
procedure TForm.TADODatasetFilterRecord(DataSet: TDataSet;
var Accept: Boolean);
begin
accept := ( (Dataset.FieldByName('x').AsInteger > 10)
and ( (Dataset.FieldByName('y').AsInteger > 10)
or (Dataset.FieldByName('z').AsInteger > 100)));
end;