动态生成有多个SpeedButton的窗体使用VclSkin退出时报错的解决办法

procedure TSkinSpeedButton.PaintControl(adc:HDC=0);
var
rc:TRect;
C : TControlCanvas;
begin
rc:=gcontrol.ClientRect;
OffsetRect( rc, -rc.left, -rc.top );
if gcontrol is TAcGraphicControl then
if TAcGraphicControl(gcontrol).Canvas.Handle<>0 then
begin
TAcGraphicControl(gcontrol).Canvas.Lock;
try
DrawSpeedbtn(TAcGraphicControl(gcontrol).Canvas,rc);
finally
TAcGraphicControl(gcontrol).Canvas.Unlock;
end;
end;
end;