GetDIBits, нехватка памяти, какие могут быть причины?

[Пепел Феникса]

есть два TBitmap, оба изначально содержат одно и тоже изображение(Width=501, Height=570, PixelFormat=pf32bits)

хочу у второго сменить яркость, вот процедура

procedure Brightness(B:TBitmap;D:Single);
var P:array of RGBQUAD;
    T:TBitmapInfo;
    i:Integer;
function NormalizeColor(value:integer):byte;
begin
 if(Value<0) then Result:=0
  else if(Value>255) then Result:=255
   else Result:=Value;
end;
begin
 T.bmiHeader.biSize:=SizeOf(T.bmiHeader);
 T.bmiHeader.biWidth:=B.Width;
 T.bmiHeader.biHeight:=B.Height;
 T.bmiHeader.biPlanes:=1;
 T.bmiHeader.biBitCount:=32;
 T.bmiHeader.biCompression:=BI_RGB;
 T.bmiHeader.biSizeImage:=0;
 T.bmiHeader.biXPelsPerMeter:=0;
 T.bmiHeader.biYPelsPerMeter:=0;
 T.bmiHeader.biClrUsed:=0;
 T.bmiHeader.biClrImportant:=0;
 SetLength(P,B.Width*B.Height);
 if GetDIBits(GetDC(0),B.Handle,0,B.Height,@P[0],T,DIB_RGB_COLORS)=0 then RaiseLastOSError;
 if(d=0.0)then Exit
  else
   begin
    for i:=0 to Length(P)-1 do
     begin
      P[i].rgbBlue:=NormalizeColor(P[i].rgbBlue+Round(P[i].rgbBlue*D));
      P[i].rgbGreen:=NormalizeColor(P[i].rgbGreen+Round(P[i].rgbGreen*D));
      P[i].rgbRed:=NormalizeColor(P[i].rgbRed+Round(P[i].rgbRed*D));
     end;
   end;
 SetDIBits(GetDC(0),B.Handle,0,B.Height,@P[0],T,DIB_RGB_COLORS);
end;

она отрабатывает почему то лишь один раз.
потом все время идет ошибка "Недостаточно памяти для обработки команды" на GetDIBits.
может я что-то упустил?
PS: виртуальный размер памяти занимаемой приложением 45 метров где-то.

[Ulex]

Пальцем в небо -
может ReleaseDC нехватает, после GetDC.

[Пепел Феникса]

Пальцем в небо -

мне к сожалению в этом небе ошибку и искать...

может ReleaseDC нехватает, после GetDC.

посмотрим.

----------добавлено-----------
не помогло, выложу больше кода.
у меня проявляет когда выделяешь прямоугольник.

[Ulex]

Вообще всё отлично. Ни разу не сбойнуло.
Картинка 501*507 памяти - макс 7 МБ (если диспетчеру верить).

[Пепел Феникса]

да видимо мне невезет.
ну я переписал сейчас, оптимизировав обращение к ней, пока нормально.