获取图标资源的问题！

[honey]

if(OpenDialog1->Execute())
{
FileName=OpenDialog1->FileName;
HICON hIcon;
Icon=new TIcon;
hIcon=ExtractIcon(Form1->Handle,FileName.c_str(),0);
Icon->Handle=hIcon;
Icon->SaveToFile(TempFile);
Image1->Picture->LoadFromFile(TempFile);
//DestroyIcon(hIcon);
}
上面的代码可以获取EXE文件的图标，但不能保存。那位大虾帮忙完成保存获取的图标。
API 函数ExtractIcon 说明中，该函数返回的图标句柄必须由DestroyIcon函数清除，但添加//DestroyIcon(hIcon);编译出错，请问怎么处理？

[ccrun.com]

void __fastcall TForm1::Button1Click(TObject *Sender)
{
if(OpenDialog1->Execute())
{
TIcon *pIcon = new TIcon();
pIcon->Handle = ExtractIcon(Form1->Handle,
OpenDialog1->FileName.c_str(), 0);
pIcon->SaveToFile("C:\\1.ICO");
Image1->Picture->LoadFromFile("C:\\1.ICO");
delete pIcon;
}
}