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;