Błąd: FormResize nie powiększa obszaru TImage

Witam.
Odkąd zrobiłem podgląd wydruku w moim programie, nie działa on poprawnie. Wszelkie próby nie przynosiły efektu, więc zwracam się tutaj o pomoc. Przygotowałem testową formę z jedynym elementem TImage. Przedstawiam mój kod i jego efekty

Jeżeli użyję Image1.Canvas.Draw(0,0,B) i TImage1.Stretch:=true, efekt jest taki sam jak na pierwszym obrazku.
Gdzie mam błąd? Jak powinienem to wykonać, aby obrazek był powiększany na całe okno, a nie robiła się "lupa"?
Proszę o pomoc.

Jeżeli rysujesz po TImage to Stretch musisz uwzgłędniać przy rysowaniu.
Narysuj na bitmapie. Bitmap'ę podepnij pod TImage i wtedy Stretch zadziała automagicznie.

@khanhvd21: jak chcesz dynamicznie renderować zawartość to użyj TPaintBox, a nie TImage… :/