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);
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);
WindowName := WordApp.ActiveDocument.FullName + ' - ' + WordApp.Application.Caption;
WindowHandle := 0;
WindowHandle := FindWindow(nil, pChar(WindowName));
SetWindowRgn(WindowHandle, CreateRectRgn(0,0,0,0), true);
WordApp.ActiveDocument.CheckGrammar;
Selection.WholeStory;
Selection.Copy;
RichEdit.Text := Clipboard.AsText;
ShellExecute(Handle, nil, 'tskill', 'winword', nil, sw_hide);
end;