我读一个旧程序总是在xpmenu控件代码段提示'Property CurrencyStyle does not exists.'，请指教

Question

程序执行到xpmenu的
procedure TXPMenu.Notification(AComponent: TComponent; Operation: TOperation);
begin
  if not Assigned(XPMenuManager) then Exit;
// Pass the notification information to the XPMenuManager
  if not(csDesigning in ComponentState) then
    XPMenuManager.Notification(AComponent, Operation);  inherited Notification(AComponent, Operation);
  if not FActive then exit;
  if not FAutoDetect then exit;
  if (Operation = opInsert) and
     ((AComponent is TMenuItem) or (AComponent is TToolButton) or
      (AComponent is TControlBar)) then
  begin
    if not (csDesigning in ComponentState) then
      InitItem(AComponent, true, true);  // Tom: This will process this new component
  end;
end;
就出错
错误提示：project gps.exe raised exception class EReadError With message 'Property CurrencyStyle does not exists.' Processstopped.Use Step or Run to continue.
那位大侠救救我