procedure DrawBtnIcon(Canvas: TCanvas; ARect: TRect; Icon: TBitmap; Style: TIconBtnStyle);