[Страдалецъ]

function OpenSample(var msw: OleVariant; path: string): boolean;
предполагается что у вас до вызова функции был предварительно создан объект Word.

Код:

 WordApp := CreateOleObject('Word.Application');
...
OpenSample(WordApp, 'c:\test.doc');