如何在程序运行时创建组件(15分)

例如在程序运行中，我想创建一个image,
procedure TForm1.FormCreate(Sender: TObject);
var
image1:Timage;
begin
...
image1:=timage.create(form1);
image1.align:=alclient;
image1.picture.loadfromfile('bmp.bmp');
...
end;

程序编译没有问题，但运行时没有达到目标。

请给予帮助

加上一行:
Image1.Parent:=self;

接受答案了.