Procedure TWPRTFStorage.DoApply(Sender:TObject)Unit: WPRTEEditClass: WPRTEEdit.TWPRTFStorageParameters Sender:TObject