Ich weis, jetzt hilft es dir nichts mehr, aber beim nächsten mal einfach
(Item as TDataObject1).fDatum := now;
nehmen, das gibt dann einen Fehler wenn der Typnicht stimmt ...
(Du könntest jetzt alle " TDataObject1(" suchen und durch as-Typecasts ersetzen, aber ob das so toll ist
)