Mit dem Event
OnFilterRecord lässt sich das Problem wesentlich einfacher lösen.
Beispiel:
Delphi-Quellcode:
procedure TForm1.CSDatasetFilterRecord(DataSet: TDataSet; var Accept: Boolean);
const
EINSTUNDE = 1.0/24.0;
begin
Accept := DataSet.FieldByName('LastChange').AsDateTime < (Now - EINESTUNDE);
end;