Größe eines Bildes in TImage herausfinden

[turboPASCAL]

Strech := True und Proportional := True wird bei ImageX.Width bzw. .Height nur die akt. Grösse des Images angegeben aber nicht die tazächliche dargestellte Grösse des Bildes (Bitmap). Auslesen kann man das, soweit mir bekannt, nicht.
Das musst du dann selbst errechnen (Originalgrösse zu Imagegrösse).