DELPHI / Hicon To Ticon

var
MyIcon:TIcon;
icoHandle: HIcon;
begin
MyIcon:=TIcon.Create;
try
icoHandle := ExtractIcon(application.handle,’c:\windows\explorer.exe’, 0);
MyIcon.Handle:=icoHandle;
Image1.Picture.Icon:=MyIcon;
finally
MyIcon.free;
end;
end;