TImageList nimmt nur eine bestimmte Zahl an Bildern auf

[kalmi01]

Moin moin,

ich habe da ein recht seltsames Phänomen:

In meiner Anwendung befinden sich mehrere TImageList.
Alle habe eine Bildgrösse von 256x256.
Eins davon soll zur Laufzeit mit bis zu 500 Bildern befüllt werden.
Es werden aber nur 158 Bilder aufgenommen !
Ab 159 ist alles Weiss.

Speichermangel ist nicht das Problem.
Interessanterweise wird ab dem 159ten Bild auch kein Speicher mehr alloziiert.

Delphi-Quellcode:

JPG.LoadFromFile(Datei);

// ein paar Berechnungen, um  tmpRect  zu erhalten

Bild.Canvas.StretchDraw(tmpRect, JPG);

if not Bild.Empty
then begin
       KollektionView.Items.BeginUpdate;
         j := KollektionList.Add(Bild, nil);
         with KollektionView.Items.Add do
         begin
           Caption := StrList.Strings[i];
           ImageIndex := j;
         end;
      KollektionView.Items.EndUpdate;
    end;