{ ... }
MsWord := CreateOleObject('Word.Basic');
try
 {Return Application Info. This call is the same for English and
    French Microsoft Word.}
 Lang := MsWord.AppInfo(Integer(16));
except
 try
  {For German Microsoft Word the procedure name is translated}
  Lang := MsWord.AnwInfo(Integer(16));
 except
  try
  {For Swedish Microsoft Word the procedure name is translated}
  Lang := MsWord.PrgmInfo(Integer(16));
  except
  try
  {For Dutch Microsoft Word the procedure name is translated}
  Lang := MsWord.ToepasInfo(Integer(16));
  except
  {If this procedure does not exist there is a different translation
             of Microsoft Word}
  ShowMessage('Microsoft Word version is not German, French, Dutch, Swedish
                 or English.');
  Exit;
  end;
  end;
 end;
end;
ShowMessage(Lang);
{ ... }