WORD OLE ½d¨Ò2

  Try
    X := GetActiveOleObject ('Word.Application');
  Except
    On E: EOleSysError do
      If (E.ErrorCode = $800401E3) then
          X := CreateOleObject ('Word.Application')
      else
        Raise;
    Else 
      Raise;
  end;

    Source: geocities.com/huanlin_tsai/faq

               ( geocities.com/huanlin_tsai)