🚀 go-pugleaf

Given the details below, what resource is insufficient?  What can I do to 
avoid the out of resource error/exception (that from my current analysis 
doesn't really seem to exist)?

Thanks.

WindowsXP sp2. machine has 2GB ram. Probably within a month of current OS 
patches.

The following code (except for ? marks) is from (bds2006) vcl's 
Graphics.pas:
  ScreenDC := GDICheck(GetDC(0));
  NewImageDC := GDICheck(CreateCompatibleDC(ScreenDC));
  with DIB.dsbm do
  try
    if DIB.dsbmih.biSize < DWORD(sizeof(DIB.dsbmih)) then
      if (bmPlanes or bmBitsPixel) = 1 then // monochrome
        Result := GDICheck(CreateBitmap(bmWidth, bmHeight, 1, 1, nil))
      else  // Create DDB
???        Result := GDICheck(CreateCompatibleBitmap(ScreenDC, bmWidth, 
bmHeight))
    else  // Create DIB

The ??? marked line of code is reached as a result of doing a 
timageitem->tpictureitem->tbitmapitem->SetSize(wd,ht) call (after any 
previously existing bitmap had already been ->ReleaseHandle()d and 
DeleteObject()d.)  The width/height are 4000/2500.  The desktop screen setup 
has dual monitors with both set at 1280x1024, 32-bit color quality.  (The 
bitmap itself is, or will be, pf8bit, but I don't think that's a factor in 
this area of code.)

The code fails with the GDICheck()) resulting in an EOutOfResources 
exception (the GetLastError() from CreateCompatibleBitmap() (as viewed with 
debugger in GDIError(), called from GDICheck()) appears to be 8.)

Two different tools report a virtual address space free area of size 
527,908,864 (0x1f774000) for the application making the call.

Taskmgr reports approx 500MB free physical memory, about 1.7GB of virtual 
memory available.

Taskmgr reports peak mem usage for the application before failure as 
326,020K.

The scenario has been very reproducible today.