Called for each WM_PAINT message to perform specific painting over control.

function PaintControl(Sender: TControl; var Message: TMessage): Boolean; virtual;