unit XYZ;
...
interface  // section to export to external units
...
type
... ABCexternal = class // class(EFG)
... private  ( all class in this unit )
... strict private ( just this class )
... protected (this unit and sub-class (inheriting) in another units
... published ( = public for Object Inspector use )
... public (all classes in all units )
...
implementation // section use internal this unit

type   // only this class
... ABCinternal = class // class(EFG)
... private
... strict private
... protected
... published
... public

end.

原文地址：http://bbs.2ccc.com/topic.asp?topicid=620748