Canvas и прозрачность

[NEoMASTERR]

Здравствуйте, пишу компонент с собственной отрисовкой, решил ему скруглить края, а на месте где эти края белый фон, как избежать такого?)

    b:TBitmap;
///
///....
procedure blabla.paint;
begin
  if not FPainting then
  begin
    FPainting:=true;

    b.Width:=Width-3;
    b.Height:=Height-3;

    b.Canvas.Pen.Style:=psSolid;
    b.Canvas.pen.Color:=rgb($42,$DF,$FC);
    b.Canvas.Brush.Style:=bssolid;
    b.Canvas.Brush.Color:=clBlack;//RGB($A6,$F1,$FF);
    b.Canvas.RoundRect(0,0,b.Width,b.Height,10,10);

    Canvas.Draw(0,0,b);
    FPainting:=false;
  end;
end;

Без битмапа все хорошо но вот с ним почему то белые участки

Так же проблема решается с заливкой и транспарентом. Но делать какой то цвет прозрачным я не хочу (все цвета нужны)

    b.Canvas.Brush.Style:=bssolid;
    b.Canvas.Brush.Color:=clWhite;
    b.Canvas.FillRect(b.Canvas.ClipRect);

    b.Transparent:=true;
    b.TransparentColor:=clwhite;
    b.TransparentMode:=tmFixed;

[Sibedir]

Вот так вроде нормально работает

procedure TForm1.Button2Click(Sender: TObject);
var
  BM: TBitmap;
begin
  BM := TBitmap.Create;
  BM.Width  := 400;
  BM.Height := 400;
  with BM.Canvas do begin
    Pen.Color :=clRed;
    Brush.Color := clBlack;
    RoundRect (0,0,400,400,100,100);
  end;

  with Form1.Canvas do begin
    MoveTo(0,0);
    LineTo(1000,1000);
    CopyMode := cmSrcAnd;
    CopyRect (Rect(10,10,410,410), BM.Canvas, Rect(0,0,400,400));
  end;

  BM.Free;
end;

[NEoMASTERR]

Мой компонент с самостоятельной отрисовкой, никакого кода из других юнитов

В общем пока проблема решена, добавил в переменные цвет фона, по стандарту берётся btnFace

    FBackgroundColor:TColor;
    FBackgroundColor:=clBtnFace;

    b.Canvas.Brush.Style:=bsSolid;
    b.Canvas.Brush.Color:=FBackgroundColor;
    b.Canvas.FillRect(b.Canvas.ClipRect);