Проблеме при смена размера Timage

[AnTe]

Кладу на форму Timage и кнопку

procedure TfmTest.btnGoClick(Sender: TObject);
begin
  Image1.Height := 50;
  Image1.Canvas.MoveTo(0,0);

  Image1.Width := 250;
  Image1.Height := 250;
  Image1.Canvas.MoveTo(0,0);
  Image1.Canvas.LineTo(100,100);
  Image1.Canvas.LineTo(100,200);
end;

отображается только прямоугольник 250*50

Если добавить в самое начала процедуры строки, например,
Image1.Height := 250;
Image1.Canvas.MoveTo(0,0); <-- обязательно добавлять!

Проблема снимается.

В чём может быть дело, и как эту проблему решать?

ps Пытался, при помощи Timage отображать фотографию, в различных масштабах

[Niarb]

при уменьшении размеров TImage уменьшаются и размеры Image.Picture.Bitmap, на котором фактически и происходит рисование, но при увеличении размеров TImage размер его БитМэпа не увеличивается
поэтому нужно так же увеличивать размеры Image.Picture.Bitmap

   Image1.Height := 50;
   ...
   Image1.Width := 250;
   Image1.Height := 250;
   Image1.Picture.Bitmap.Width := 250;
   Image1.Picture.Bitmap.Height := 250;
   Image1.Canvas.MoveTo(0,0);
   Image1.Canvas.LineTo(100,100);
   Image1.Canvas.LineTo(100,200);

[Niarb]

а для увеличения картинки можно использовать следущее:

   Image1.Stretch:=true;
   Image1.Height := 50;
   Image1.Width := 50;
   // рисуем картинку 50 х 50
   Image1.Canvas.MoveTo(0,0);
   Image1.Canvas.LineTo(50,50);
   Image1.Canvas.MoveTo(50,0);
   Image1.Canvas.LineTo(0,50);
   // растягтваем картинку в 5 раз
   Image1.Width := 250;
   Image1.Height := 250;

[AnTe]

Спасибо!! Оба ответа как нельзя в тему! Теперь всё работает!