procedure GetImageExtent(Image: pointer; var Extent: TPoint);
Ermittelt die Ausdehnung des Image und gibt sie in dem Parameter Extent zurück.