Canvas-Trectangle

[mrnovice]

Estoy basandome en el Ejemplo 30 , en el procedimeitno Dibujar le modifico pero me sale negro
mira:

Código Delphi [-]
begin
  Buffer:= TBitmap.Create;
  try
    Buffer.Canvas.Brush.Style:=bsclear;
    Buffer.Canvas.Brush.color:= clnone;

    Buffer.Width:= pbMain.Width;
    Buffer.Height:= pbMain.H

y pos no salio