you may try this: TSomeObjToSerial = class(TPersistent) private FPoint: TPoint; public property Point: TPoint read FPoint write FPoint; published property PointX: Integer read FPoint.x write FPoint.x; property PointY: Integer read FPoint.y write FPoint.y; end; not tested by compiler, but as I remeber it's work.