如何取*.ico文件中，其它大小的图标(100分)

我有一个ICO文件，内有一个32*32和16*16不同大小的图标。
我现在用TIcon加载该文件后，出来的是32*32的图标。

请问如何从该文件中加载出16*16的图标？
TIcon加载后，可否从TIcon中取得16*16的图标？

uses ShellApi;

procedure TForm1.Button1Click(Sender: TObject);
var
FileInfo: TSHFileInfo;
begin
if OpenDialog1.Execute then
begin
FileInfo.iIcon := 0;
SHGetFileInfo(PChar(OpenDialog1.FileName), 0, FileInfo, SizeOf(TSHFileInfo),
SHGFI_ICON or SHGFI_SMALLICON);
Image1.Picture.Icon.Handle := FileIcon.hIcon;
end;
end;
你试一下.

谢谢 马上试

to luoyanqing119：
您的代码取得的是文件关联图标，在我电脑上打开*.ico显示ACDSee的图标。

接受答案了.