如何进行图片的类型转化！(100分)

我再转化ticon到tbitmap时，出现运行错误:ticon image is invalid !程序如下
procedure tform1.button1click(sender:tobject);
var
aa:ticon;
bb:tbitmap;
begin
try
aa:=ticon.create;
bb:=tbitmap.create;
if openpicturedialog1.execute then
aa.loadfromfile(openpicturedialog1.filename);
bb.width:=aa.width;
bb.height:=aa.height;
bb.canvas.draw(0,0,aa);
image1.picture.bitmap:=bb;
finally
aa.free;
bb.free;
end;
end;

你要确保打开的是 .ico文件～～～

我试过没有问题.你也可以将
image1.picture.bitmap:=bb;改为
image1.picture.bitmap.Assign(bb);
而上面这句错误的意思是"非法的ICO文件,说明你打开的文件不是ICO",
你可以openpicturedialog1.defaultExt:='*.ico'来过滤一下.

你的程序我运行了，没有问题
可能想楼上说的你打开的文件类型错误了

多人接受答案了。