怎样获取控件集的图标？
怎么才能获取大型控件集（比如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图标的，不过到红色会报错，请高手回答