function EditRichTextEx(const Default: String; const aCaption: String): String;

   Default            - Zu bearbeitender Richtext, kann auch leer sein
   aCaption           - Überschrift, wird im Titelbalken des Editorfensters angezeigt

   Veränderter Richtext

   RichText1.RichText:=EditRichTextEx(,'Zeugnisbemerkung');