[Decoding]

IconIndex не может быть равным -1, т.к. его значение лежит в пределах 0..4294967295.

Делай так

Код:

procedure TForm1.FormCreate(Sender: TObject);
const
  //path = 'calc.exe';
  //path = 'notepad.exe';
  //path = 'mspaint.exe';
  path = 'shell32.dll';
var
  hi: HICON;
  i: integer;
begin
   i := 0;
   hi := ExtractIcon( HInstance, path, 0 );
   while ( hi > 0 ) do
   begin
      Inc( i );
      hi := ExtractIcon( HInstance, path, i );
   end;
   Caption := IntToStr( i );
end;