pascal/dispatch: added TSuitMonster