function CutImage(x1, y1, x2, y2: Integer): pointer;
Speichert den angegebenen Bildausschnitt in einem Image und
liefert einen Zeiger auf dieses zurück.
Diese Funktion ersetzt die Prozedurfolge GetImageSize - GetMem - GetImage
und unterstützt zudem beliebig große Images. Es gibt also keine
Beschränkung auf 64K.