Доброе время суток.

Необходимо захватить кусок экрана и взять с него биты, т.е.

ScreenDC := CreateDC('DISPLAY', nil, nil, nil);
MemDC := CreateCompatibleDC(ScreenDC);
Bitmap:= CreateDIBSection(ScreenDC,FBitInfo,DIB_RGB_COLORS, FBuffer,0,0);
SelectObject(memDC,Bitmap);
BitBlt(MemDC,0,0,1024,768,ScreenDC,0,0,SRCCOPY);

Так вот BitBlt в случае 1024х768х24 работает СЕКУНДУ !!!

Может кто подскажет, где собака зарыта.

P.S. GetDiBits работает также долго.