Invocar Corrector ortografico de Word para edit y memos

[Lizette]

Dentro del foro me encontre este tema en esta liga:
http://www.clubdelphi.com/foros/show...rafico+de+word

Aqui publican este codigo, pero he intentado modificarlo para varios componentes que tengo en el formulario, como son varios edits, un memo, etc, pero no lo logre, y no obtengo respuesta en esta liga. Espero alguien pueda ayudarme.

Lo que pretendo es que me revise la ortografia de los datos que introduce el usuario en el formulario, todos a la vez, es decir como lo hace word, o alguna otra manera de lograr esto..

Este es el codigo del amigo aeff:

// coloca un edit en tu form y un button y en el evento onclick del button pon esto:

Código Delphi [-]
uses ComObj, ClipBrd, ShellApi;
 
procedure TForm1.Button1Click(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(Edit1.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;
  Edit1.Text := Clipboard.AsText;
  // Mandamos a cerrar el Word con el programa TSkill
  ShellExecute(Handle, nil, 'tskill', 'winword', nil, sw_hide);
end;

Saludos