Пишу наследника от TGraphiccontrol в методе paint отрисовываю на канву битмапы примерно так

if OilImageList.GetOilImage(FSize, TempSide, PstPicture, PBitMap) then begin
   PBitMap.TransparentColor := $00FF00FF;
   PBitMap.Transparent := True;
   Canvas.StretchDraw(FPumpRect.Pistolet, PBitMap);
   Canvas.Brush.Bitmap := nil;
   PBitMap.FreeImage;
end;

под объектом находится другой объект который должен быть виден. ControlStyle := ControlStyle + [csOpaque] чтоб не моргало.

Как очищать канву чтоб ранее отрисованное исчезло?

Пробывал

canvas.fillrect(canvas.cliprect);

но это лишь делает участки объекта белыми.