Hola zidfrid, tal vez esto te pueda ayudar...
Código Delphi
[-]
Variant word, doc;
try
catch(...)
word.OlePropertySet( "Visible", (Variant) true );
doc = word.OlePropertyGet("Documents");
AnsiString archivo;
archivo = "C:\\archivo.doc");
if (FileExists(archivo))
else
try
catch(...)