Delphi quickie: improved TMemo

Your job is to create a descendant of TMemo called TPTMemo. TPTMemo shall contain all the features and properties of TMemo, but in addition, it must contain the following two properties: DefaultTextFont : TFont, which by default is the same as TMemo default font, but in clGray color. DefaultText : String. When TMemo is empty, and DefaultText is set, the DefaultText is displayed vertically and horizontally centered to the TMemo canvas. If the user modifies the TMemo (i.e. TMemo's text becomes <> ''), the DefaultText will no longer be shown. The control must work under Delphi 2010. Notice the 1 day deadline. This is a quick job, and I want it done quickly.