I have this object in mind:
TBaseObject = class private FEditState: string; FID: integer; public constructor Create; ... procedure Clone(AObject: TObjec