Problem ze stretchem

Witam Was.Uzywam BCB.Mam problem z rysowaniem na bitmapce która ma wlsściwość stretch ustawioną na true.NA formularzu sa dwa komponenty Image(Image2-autosize -false,stretch false,propotional false,Image 1-autosize false,<font size="4"><font size="3">stretch</span> true</span>,proportional false)Pole edit do wpisywania skali oraz przycisk Button 1 ze zdarzeniem on click i kodem ktory zamieszczam ponizej.Teraz pytanie,dlaczego po przeskalowaniu obrazka jesli chce wykreslic linie poleceniem Line to program sie kompiluje ale jej nie wyswietla...Dziekuje za metrytoryczne odpowiedzi
Marcin Stępniak

int skala;
skala=StrToInt(this->Edit1->Text);

this->Image2->Picture->LoadFromFile("D:\skan.bmp");

int w2,h2;
w2=this->Image2->Picture->Width;
h2=this->Image2->Picture->Height;

int w1,h1;
w1=ceil(w2/skala);
h1=ceil(h2/skala);

this->Image1->Width=w1;
this->Image1->Height=h1;
this->Image1->Picture=this->Image2->Picture;
this->Image1->Canvas->LineTo(50,100);