Как загрузить небольшую систему icon?

Мне нужно отображать значки размером 16x16 пикселей для ошибок / предупреждений /Информация. К сожалению, оба LoadIcon (0, IDI _ *) и LoadImage (0, OIC_ *, IMAGE_ICON, 16, 16, LR_SHARED) всегда дают мне версию значка 32x32.

Я читал о ShGetStockIconInfo , но он доступен только начиная с Vista, и мне все еще нужна поддержка XP.

Есть идеи?

Я использую Delphi 2010 с TImage компонент, если это имеет значение.