Procedure GetImage (X1,Y1,X2,Y2 : Integer, Var Bitmap ;
GetImage Places a copy of the screen area (X1,Y1) to X2,Y2 in BitMap
Bitmap must have enough room to contain the image.
ImageSize, PutImage