uses ComObj;
procedure TForm1.Button1Click(Sender: TObject);
var Word, Document, Selection: OleVariant;
begin
Word := CreateOleObject('Word.Application');
Document := Word.Documents.Add;
Windows.SetParent(FindWindow(nil, PChar(string(Document.FullName + ' - ' + Word.Caption))), Application.Handle);
Selection := Word.Selection;
Selection.Text := Memo1.Text;
Document.CheckGrammar;
Selection.WholeStory;
Memo1.Text := StringReplace(Selection.Text, #13, #13#10, [rfReplaceAll]);
Word.Quit(False);
end;