Извлечение иконки из *.exe и вставка в TImage - убрать фон

[spirit-ua]

Всем Привет !!!

 var
    a : TIcon;
    b : TBitmap;
 begin
    a := TICon.Create;
    b := TBitmap.Create;
    a.Handle := ExtractIcon(HInstance, 'C:\Program Files\Internet Explorer\iexplore.exe', 0);
    b.Height := a.Height;
    b.Width := a.Width;
    b.Canvas.Draw(0, 0, a);

    Image1.Picture.Bitmap := b;

все работает но картинка получается с белым фоном...

если же делать вот так

Image1.Picture.Icon.Handle:=ExtractIcon(hInstance,PChar('C:\Program Files\Internet Explorer\iexplore.exe'),0);

то каринка без фона но остается много "шума" на картинке

Помогите решить вопрос

[Аватар]

Что-то не вижу разницы между качеством, не считая фона. Специально увеличил в паинте

[spirit-ua]

Сообщение от Аватар

Что-то не вижу разницы между качеством, не считая фона. Специально увеличил в паинте

если втавлять вот так

Image1.Picture.Icon.Handle:=ExtractIcon(hInstance,PChar('C:\Program Files\Internet Explorer\iexplore.exe'),0);

то выдны ЧОРНЫЕ пиксели, "шум", а мне нужен прозрачный фон

УПУСТИЛ момент... форма на которую ложится Image ПРОЗРАЧНАЯ...

WinXP SP3
Delphi 7