[Agat330]

Доброго времени суток!
Использую ImageList, который пополняется так:

Код:

procedure ProcName(FName: String);
var
 Icon: TIcon;
 Icon32,Icon16: HICON;
begin
  if Integer(ExtractIconEx(PWideChar(FName), i, Icon16, Icon32, 1) >0 then
  begin
    Icon := TIcon.Create;
    Icon.Handle := Icon16;
    ImageList.AddIcon(Icon); 
    Icon.Free;
  end;
end;

Иконки потом отображаются в ListView. Все нормально грузится и отображается, только в ListView вокруг иконок обнаружился неровный черный контур. Скриншот на Яндекс.Диске
Кинул на форму TImage, выгрузил иконку в него - все ОК, красиво и без контуров. Поискав в Гугле узнал, что ImageList у многих портит иконки, как-то криво меняя глубину цвета поциентов. Увы, Гугл не дал ответа как с этим бороться... Собственно, в этом и вопрос.