uses
ComObj;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
WordApp: OleVariant;
begin
WordApp := ComObj.CreateOleObject('Word.Application');
WordApp.Documents.Open('C:\ruta\al\documento.doc', Null, true);
WordApp.Visible := true;
end;