Código Delphi
[-]uses ComObj;
procedure TForm1.Button1Click(Sender: TObject);
var Word: OleVariant;
begin
Word := CreateOleObject('Word.Application');
Memo1.Lines.SaveToFile('c:\texto.txt');
Word.Documents.Add('c:\texto.txt');
Word.ActiveDocument.SaveAs('c:\documento.doc');
DeleteFile('c:\texto.txt');
Word.Quit;
end;
Claro que tambien funcionaría;
Memo1.Lines.SaveToFile('c:\texto.DOC');
Saludos