type TEdit = class(Vcl.StdCtrls.TEdit) protected procedure DefineProperties(Filer: TFiler); override; procedure WriteZ(Writer: TWriter); end; TForm2 = class(TForm) Edit1: TEdit; ...