Win32-Fehler. Code 87 Falscher Parameter

[GuenterS]

Hallo,

ich verwende Delphi5 Enterprise (Servicepack 1).

Ich lade in meiner Anwendung sehr viele Bitmaps, welche ich in einer ObjectList verwalte. Leider bekomme ich immer bei einer fixen Anzahl, auf meinem Laptop sind das 9961, einen Win32-Fehler. Code87 Falscher Parameter.

Die Googel Suche hat immer nur etwas übers Drucken gebracht.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
  function nGetBitMap: Graphics.TBitMap;
  begin
    Result := Graphics.TBitMap.Create;
    Result.PixelFormat := pf4bit;
    Result.TransparentMode := tmAuto;
    Result.Transparent := true;
  end;
var
  lObjectList: TObjectList;
  lBitmap: Graphics.TBitMap;
  i, lCount: integer;
begin
  lObjectList := TObjectList.Create(true);
  try
     lCount := 9961;
     for i := 0 to lCount do
     begin
        lBitmap := nGetBitMap;
        lBitMap.LoadFromFile('c:\test.bmp');
        lObjectList.Add(lBitMap);
     end;
     ShowMessage('Ready');
  finally
     lObjectList.Free;
  end;
end;

Bei der Datei handelt es sich um eine kleine existierende Bitmap Datei (11x11 pixel).


Wie kann ich dieses Problem umgehen?


P.S.: Dieser Code stellt bei mir den Fehler nach, dh. er tritt mit diesem auch auf ... ich bin auch so erst an die genaue Anzahl gekommen.