Averiguar parametros trect en un Timagen

[[xEsk]]

Puedes usar las propiedades: Width y Height de la clase TPicture. Los valores que te devuelve, son las dimensiones reales de la imagen, no del TImage.

Ejemplo:

Código Delphi [-]
ShowMessage(IntToStr(Image1.Picture.Width) + 'x' + IntToStr(Image1.Picture.Height));

Saludos.