ImageList.AddIcon и "Out of system resources"

[garuna]

Добрый вечер!

Возникла такая проблема. Добавляю в ImageList иконки следующим образом:

function GetIconEx(num: integer): TIcon;
begin
 Result:= TIcon.Create;
 Result.LoadFromFile('C:\'+IntToStr(num)+'.ico');
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
var
 ico: TIcon;
begin
 ico:= GetIconEx(Random(10));
 try
  imgL.AddIcon(ico);
  showmessage('ok');
 finally
  FreeAndNil(ico);
 end;
end;

Заметил, что если иконка содержит значки нескольких размеров (16x16, 32x32, 64x64 и т.д.), то при загрузке всегда получается ошибка "Out of system resources". Собственно вопрос - каким образом проверить перед загрузкой мультиразмерна ли иконка и если да, то извлечь из нее самую наименьшую (16x16) ?

--
для примера:
Мультиразмерная иконка: https://mail.ru/favicon.ico
Обычная иконка: http://programmersforum.ru/favicon.ico

[DIONISKA]

Помню то-же как-то заморачивался, решилось всё просто, через ExtractIconEx(модуль ShellApi):

var
ico:ticon;
smallico,bigico:hicon;
begin
ico:=ticon.Create;
ExtractIconEx(('c:\favicon.ico'),0,bigico,smallico,1);
  ico.Handle:=smallico;
  imagelist1.AddIcon(ico);
  ico.Free;
end;