Image Canvas

Witam problem moj polega na tym ze na formie umieszczam obrazek Timage a w zdarzeniach formy a dokladnie w OnResize daje takie cos :
Kod:

// zmiana wielkosci obrazka wraz z forma: 
Image1->Width=Form1->Width; 
Image1->Height=Form1->Height; 

// rysowwanie obwodki canvasu : 
Image1->Canvas->Rectangle(0,0,Image1->Width,Image1->Height); 

i to dziala tylko jak form jest nie wieksza niz na poczatku
bo gdy rozszerzam forme to obrazek niby tez sie rozszerrza ... rysowana jest obwodka ale pewnej czesci nie widac tej obwodki...

Czy ktos wie jak temu zapobiec ?

chodzi oczywiscie o BCB

Image1->Canvas->Rectangle(0,0,Image1->Width-1,Image1->Height-1);