try
try
WordApp:=CreateOleObject('Word.Application');
except
showmessage('Unable to start Word.');
end;
sourcedoc:=wordapp.Documents.Open(WideString(utf8decode(s)));
WordApp.Visible:=True; {Make WordApp visible}
except
showmessage('It all went pear-shaped.');
end;