Canvas.Brush.Style := bsClear;
 if FButtonState = mibsDisabled then
 begin
   Canvas.Font.Color := clBtnHighlight;  
   Canvas.TextOut((ControlMiddle.X — TextMiddle.X) + CaptionXOffset + 1,
     (ControlMiddle.Y — TextMiddle.Y) + CaptionYOffset + 1, Caption);
     
   Canvas.Font.Color := clBtnShadow;
   Canvas.TextOut((ControlMiddle.X — TextMiddle.X) + CaptionXOffset,
     (ControlMiddle.Y — TextMiddle.Y) + CaptionYOffset, Caption);
 end
 else
   Canvas.TextOut((ControlMiddle.X — TextMiddle.X) + CaptionXOffset,
     (ControlMiddle.Y — TextMiddle.Y) + CaptionYOffset, Caption);

TempPicture := GetImage(FButtonState);
 if not Assigned(TempPicture.Graphic) or (TempPicture.Graphic.Empty) then
   TempPicture := GetImage(mibsNormal);
 Canvas.StretchDraw(ClientRect, TempPicture.Graphic);