procedure WMPaint(var Message: TWMPaint); message WM_PAINT;

__fastcall WMPaint(TWMPaint Message);