Höhe und Breite von einem JPG Bild im TImage

[qb-tim]

Hi,

ich habe ein Programm, indem ich einen 600x600 TImage im Formular habe. Darin werden Bilder innerhalb dem Rahmen von 600x600 px in verschiedensten Formaten angezeigt. Nun habe ich folgendes Problem:

Ich hole mir mit Image.Picture.LoadFromFile eine JPG Datei ins TImage und will nun die Höhe und Breite des EIGENTLICHEN BILDES ermitteln. Leider hilft mir Image.Height nicht weiter, da dieser immer 600px beträgt. Image.Picture.Height, Image.Picture.Bitmap.Height und Image.Picture.Graphic.Height spucken alle 0 aus! (dasselbe bei Width)

Wie kann ich sonst die Breite und Höhe des angezeigten Bildes ermitteln?