[mtp]

Доброго времени суток, форумчане.
Апаю старую тему, т.к. в новой не вижу смысла.
Есть TImageList, в него нужно загружать иконки, имея только указатель типа HICON; Реализовал следующим образом:

Код:

Procedure TMain_Form.Load(tmpHIcon: HICON;)
 var
  tmpIconImg : TImage;
 begin
  tmpIconImg := TImage.Create(Self);
  Try
   tmpIconImg.Picture.Icon.Height := 15;
   tmpIconImg.Picture.Icon.Width := 15;

   DrawIcon(tmpIconImg.Picture.Icon.Handle, 0, 0, tmpHIcon);

   WImageList.AddIcon(tmpIconImg.Picture.Icon);
  Finally
   tmpIconImg.Free;
  End;
 end;

Не работает, что я делаю не так?