Anbei mal ein Minimalbeispiel (ja, das geht in der Tat recht schnell) zum nachdebuggen in einer höheren Delphiversion, die schon
VCL Styles unterstützt (z.B. die Delphi Community Editon).
Du kannst ja einfach mal nachvollziehen, wie in
procedure TSysPopupStyleHook.WMPRINT(var Message: TMessage);
der Hintergrund bei der Message WM_PRINT (791) gezeichnet wird.