Word p/ Memo

Aí, só para constar, na época ninguém respondeu e acabei descobrindo:

uses
(...)
ComObj;


var
(...)
n : string;
Word, Doc : Variant;


procedure TfrmWordMemo.btnAbrirDOCClick(Sender: TObject);
var
Docs: Variant;
begin
Word := CreateOleObject(´Word.Application´);
Word.Visible := true;
Docs := Word.Documents;
Doc := Docs.Open(´C:\MYD\WordMemo\nome.doc´);
mmWordMemo.Lines.Add(Doc.Content);
//doc.saveas(´C:\MYD\WordMemo\nome.doc´); //Salva o documento
//Doc.PrintOut(false); //Imprime o documento
end;

procedure TfrmWordMemo.btnFecharDOCClick(Sender: TObject);
begin
doc.Close;
Word.quit;
end;

Vai que alguém precisa, né? :)

Grande abraço a todos!