RichTextToHTML

procedure RichTextToHTML(

  AWorkbook: TsBasicWorkbook;

  AFont: TsFont;

  const APlainText: string;

  const ARichTextParams: TsRichTextParams;

  out AHTMLText: string;

  APrefix: string = '';

  ATagCase: TsTagCase = tcLowercase

);