[Beter]

ПОдскажите пожалуйста как заполнить полностью картинку если ее размеры постоянно меняется вот мой код

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
Image1.Width:=Image1.Width+100;
Image1.Height:=Image1.Height+100;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Image1.Width:=100;
Image1.Height:=100;
end;

procedure TForm1.FormClick(Sender: TObject);
 var bm:TBitmap;
begin
  bm:=TBitmap.Create;
  bm.Width:=Image1.Width;
  bm.Height:=Image1.Height;
  with bm.Canvas do begin
    Brush.Color:=clBlack;
    Brush.Style:=bsSolid;
    FillRect(ClipRect);
  end;
  Image1.Canvas.Draw(0,0,bm);
  bm.Destroy;
end;

Проблема в том если сначало нажать на кнопку а затем на форму то нормально рисуется, но после того как несколько раз еще нажмешь на кнопку то отрисовка все равно будет старой области.

Ну в примере здесь я сделал просто заливку черным ... у меня в проге там рисунки накладываются.