Invocar Corrector ortografico de Word para edit y memos

[[cHackAll]]

Código Delphi [-]
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;

Solo una breve corrección al codigo inicial.