Извлечение пиктограммы из файла и добавление ее в ImageList

[Don Karleone]

Здравствуйте уважаемые форумчане. Хочу извлечь пиктограмму из файла и добавить ее в пункт меню своей проги. Делаю следующим образом: извлекаю пиктограмму функцией ExtractAssociateIcon(), добавляю ее в ImageList а у пункта меню поле ImageIndex:=0.
Возник вопрос, как избавиться от черного фона. На рисунке он отмечен стрелкой с "?".

код:

procedure TForm1.Button1Click(Sender: TObject);
var
  Icon: TIcon;
  i: word;
begin
  if OpenDialog1.Execute
    then
        begin
          Icon:=TIcon.Create;
          i:=0;
          ImageList1.Clear;
          Image1.Canvas.FillRect(Image1.ClientRect);
          Icon.Handle:=ExtractAssociatedIcon(Handle,
                                             PChar(OpenDialog1.FileName),
                                             i);
          ImageList1.AddIcon(Icon);
          DrawIcon(Image1.Canvas.Handle, 0, 0, Icon.Handle);
          Icon.Free;
        end;
end;

[Don Karleone]

так загружаю пиктограмму в список изображений, который связан с меню.

ImageList1.AddIcon(Icon);

а отрисовку в image1 я использую просто так. Эта прорисовка выполняется функцией DrawIcon(). Вопрос в том, что при использовании пиктограммы из ImageList в пункте меню появляется черынй фон.

[Don Karleone]

Люди, откликнитесь...., помогите......

[asmodey1]

А вот эта заливка цветом по умолчанию (а, возможно, и установленным где-то черным) зачем ?

Image1.Canvas.FillRect(Image1.ClientRect);

Может, нужно все-таки

Image1.Picture:=nil;

?