TAdvOfficePager OnShow event

I have a question about the TAdvOfficePage component.

The OnShow event is executed twice when a page becomes active. Is there a reason for this or is it a bug?

I am using the lastest version from TMS Component Pack with Delphi 7 update 1

The behavior can esailly be reproduced in a new application.
 - Drop a TAdvOfficePager
 - On one oe the TAdvOfficePage add an OnShow event with code so that you can put a breakpoint.
- When you switch to the AdvOfficePage in questin, the OnShow event will run twice.

Is this normal?

We have traced and fixed this issue.