关于提取exe里面icon的问题(62分)

用这个
TheIcon.Handle := ExtractIcon(hInstance,
'C:/Program Files/MSN Messenger/msnmsgr.exe',
0);


提取出来的icon是16色的 怎么办 不太会改icon类 里面的源代码啊
达人帮帮忙啊 最后62分....

procedure TForm1.Button1Click(Sender: TObject);
var
Icon:HIcon;
IconIndex:word;
begin
form1.Refresh;
Icon:=ExtractAssociatedIcon(HInstance,pchar(edit1.Text),IconIndex);
DrawIcon(form1.Canvas.Handle,150,150,icon);
end;

谢谢