怎样获取控件集的图标？
怎么才能获取大型控件集（比如DevExpress VCL等）或者DELPHI自带控件的图标？
[解决办法]
Var
j:integer;
P:TICON;
begin
P:=TICON.Create;
for j:=self.ComponentCount-1 downto 0 do
begin
if self.Components[j].ClassType=TMainMenu then
(self.Components[j] as TMainMenu).Images.GetIcon(0,p);
image1.Picture.Assign(p);
p.SaveToFile('d:\a.ico');
p.Free;
end;
end;
提取mianmenu图标的，不过到红色会报错，请高手回答
