Здравствуйте, DmitryShevelev, Вы писали:

<skipped>

Мда, модуль Graphics — это сборище глюков еще то...

Вот пример, который вызывает EOutOfResources с вероятностью 100%:

with TBitmap.Create do
begin
  HandleType := bmDIB;
  Width := 16;
  Height := 16;
end;

Спрашивается, какие нафиг ресурсы, когда никакого содержимого битмапа еще нет...

Избежать Вашего эффекта довольно легко:
1. Убрать иконку у формы вообще
2. В конструкторе, обработчике FormCreate или другом аналогичном месте написать:

Icon.Handle := LoadIcon(HInstance, ICON_ID);

3. Запихать иконку в файл ресурсов (.res) и подключить его к программе ( {$R myicon.res} )