procedure RichEdit_SetHTMLText(AEdit:TdbRichEdit; AText:string);
// load HTML into editor
var
   tmpFileName:string;
   tmpMemo: TdbMemo;
begin
   tmpFileName := GetTempFileName; // get temporary file name
   tmpMemo := TdbMemo.Create(nil); // create a component for writing a text file in UTF-8 format
   tmpMemo.Text := AText;
   tmpMemo.SaveToFileUTF8(tmpFileName ); // save file
   AEdit.Clear;
   AEdit.LoadHTML(tmpFileName); // upload file as HTML
   DeleteFile(tmpFileName); // delete temporary file
end;