PostScriptPrinter
type TPSObject = class(TObject)
property OnChange: TNotifyEvent read FOnChange write FOnChange;