Друзья, нужна помощь.
При увеличении размера Image1 размер Rectangle не меняется, что делать?
Заранее всем ответившим благодарен!

void __fastcall TForm1::FormCreate(TObject *Sender)
{
  Image1->Canvas-> Rectangle(0,0,Image1->Width,
                           Image1->Height);
 
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
 Image1->Width+=50;
 Image1->Height+=50;
 Image1->Canvas->Rectangle(0,0,Image1->Width,
                           Image1->Height);
 
}

Перерисовывать. Стирать старый прямоугольник, рисовать новый.

Уважаемый mr.Anderson!
То, что я сделал - не есть ли " Стирать старый прямоугольник, рисовать новый."?
Объясните, пожалуйста.

Тут не в этом дело, он у вас перерисовывается, тока его не видно. Увеливать размер изображения (и канвы вместе с ним) кто будет?



Добавлено через 5 минут и 12 секунд
если, кто не понял, то это:

Писать не нужно. 
mr.Anderson, удалять старый не обязательно, он у него становиться только больше и зарисовывает прежний.

Уважаемый mr.Anderson!
Большое спасибо. Все вышло, как всегда все гениальное - всегда просто.
Считаю тема - закрыта. Полный  текст решения темы:

SerK, вы мой пост читали? 

Уважаемый Klin!
Приношу Вам свое огромное извинение за невнимательность.
 
Спасибо Вам за помощь!!!!!!!!!!!!
 
Еще раз - извините.

  Да, так ненароком и плюс в репутацию получишь!