Corregir ortografía RichEdit
 

Necesito corregir la ortografía de unos memos que muestro en unos richedit. He encontrado en el foro un truco que utiliza el corrector ortográfico de Word para hacerlo y funciona perfectamente, pero me quita todo el formato que tenía en mi richedit (negritas, Tipos de letras, colores). Hay alguna forma de hacerlo sin que esto me pase.
Gracias.

Código Delphi [-]
procedure TFEditorRichEdit.ToolButton8Click(Sender: TObject);
//  SpellChecker.Check(RichEdit);
var
  WindowName: string;
  WindowHandle: Cardinal;
  WordApp, Document, Selection: OleVariant;
begin
  WordApp := CreateOleObject('Word.Application');
  Document := WordApp.Documents.Add;
  Selection := WordApp.Selection;
  Selection.TypeText(RichEdit.text);
  // Para que no salga la ventana del Word despues de revisar la gramtica/ortografia
  WindowName := WordApp.ActiveDocument.FullName + ' - ' + WordApp.Application.Caption;
  WindowHandle := 0;
  WindowHandle := FindWindow(nil, pChar(WindowName));
  SetWindowRgn(WindowHandle, CreateRectRgn(0,0,0,0), true);

  // Empezamos revisar la ortografia
  WordApp.ActiveDocument.CheckGrammar;
  Selection.WholeStory;
  Selection.Copy;
  RichEdit.Text := Clipboard.AsText;
  // Mandamos a cerrar el Word con el programa TSkill
  ShellExecute(Handle, nil, 'tskill', 'winword', nil, sw_hide);
end;