uses 
comobj; 

function convertdoc2rtf(var filename: string) : boolean;
var 
oword: olevariant; 
odoc: olevariant; 
begin 
result := false; 
try 
oword := getactiveoleobject('word.application'); 
except 
oword := createoleobject('word.application'); 
end; 
oword.documents.open(filename); 
odoc := oword.activedocument; 
filename := changefileext(filename, '.rtf'); 
odoc.saveas(filename); 
oword.activedocument.close(wddonotsavecВ­hanges, emptyparam, emptyparam); 
oword.quit(emptyparam, emptyparam, emptyparam); 
odoc := varnull; 
oword := varnull; 
result := true; 
end; 

procedure tform1.button1click(sender: tobject); 
const 
filename = 'c:\document.doc'; 
begin 
if convertdoc2rtf(filename) then 
begin 
showmessage('word document has been converted to .rtf'); 
richedit1.lines.loadfromfile(filename); 
end; 
end;