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.