[PassCall]

что-то никак не рисуется

procedure TForm1.FormCreate(Sender: TObject);
begin
qwe:=Tbitmap.create;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  for i:=1 to 100 do
    begin
    qwe.Canvas.Brush.Color:=RGB(random (256),random (256),random (256));
    qwe.Canvas.Rectangle(25,25,random(100),random(100));
    end;

    form1.canvas.Draw(0,0,qwe);
end;

нажимаю кнопку - ничего не происходит

"p.s. Еще есть свойство DoubleBuffer" где его искать то?