Grab Partition of the screen

I need to capture a partition of the screen & put the result in a bitmap.

a function similar to this...

Funcion GrabScr(top, bottom, left, right : Cardinal) : TBitmap;

Please Help me...