[Drozh]

Почему если пишу таким образом

Код:

var
  img: TImage;
begin
  img := TImage.Create(Form1);
  img.Parent := Form1;
  img.Left := 100;
  img.Top := 100;
  img.Canvas.Pen.Color := clRed;
  img.Canvas.Brush.Color := clRed;
  img.Height := 50;
  img.Width := 500;
  img.Canvas.RoundRect(0, 0, img.Width, img.Height, 10, 10);

Появляется обрезанный Image (fig1.jpg)

А если работу с Canvas поместить после установки размеров Image'а, тогда все выводится пучком (fig2.jpg). Из-за чего это возникает?