Probleme mit Objektkopie und eigenem MessageDialog

[freimatz]

Ich habe da gar nichts auszusetzen. Meine Erfahrung ist oft wenn ich in altem Code Fehler suche, dass es mir hilft ihn erst mal nach diesen Regelnum zubauen.

Was mir konkret auffällt:

1. Warum hat TDocumentProperties so viele properties die nichts machen? Warum nicht gleich ein record? (KISS)
2. Warum hat die Klasse auch Methoden? (Auch ein record kann Methoden haben.) Vielleicht wäre es besser die Datenhaltung und die Verarbeitung zu trennen und ein DTO daraus zu machen (SoC)
3. "TMessageDialog.MessageDlg(Format(conErrorFileNotP resent, ...);" aufteilen. Die Zeile ist sehr lang. Einfach wäre es erst mal den string in einer lokalen Variablen zwischenzuspeichern dessen Namen auch sagt um was es geht.
4. "FModifiedDocument := TSEAMDocumentProperties(TSEAMToolsJson.ObjectCopy( FOriginalDocument));" - harte Typecasts vermeiden. Wenn dann erst prüfen ob das auch der gewünschte Typ ist.