Convertir un document Word en RTF (2)

uses
ComObj, word2000 {ou Word97};

function ConvertDoc2Rtf( var FileName: string) : Boolean;
var
oWord: OleVariant;
oDoc: OleVariant;
begin
Result := False;
try
oWord := CreateOleObject('Word.Application');
except end;
oWord.Documents.Open(FileName);
oDoc := oWord.ActiveDocument;
FileName := ChangeFileExt(FileName, '.rtf');
oDoc.SaveAs(FileName,wdFormatRTF);
oWord.ActiveDocument.Close(EmptyParam, EmptyParam, EmptyParam);
oWord.Quit(EmptyParam, EmptyParam, EmptyParam);
oDoc := VarNull;
oWord := VarNull;
Result := True;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
sFileName:String;

begin
sFileName := 'd: est.doc';
if ConvertDoc2Rtf(sFileName) then
begin
ShowMessage('Word document has been converted to .rtf');
RichEdit1.Lines.LoadFromFile(sFileName);
end;
end;