Не отображается SubImage

[Ra72]

В результате действия такого кода, не происходит отображения картинки Image1 в квадрате SubImage1. Почему?

Image1: TImage;
SubImage1: TSubImage;
...    
procedure TForm1.FormCreate(Sender: TObject);
begin
  SubImage1.BeginUpdate;
  SubImage1.Source := Image1;
  SubImage1.EndUpdate;
end;