Grazie. Mi è bastato seguire il tuo consiglio per risolvere il problema nel seguente modo:

codice:
RR := Rect(400, 400, (Image1.picture.Width * scaleX) + 400, (Image1.Picture.Height * ScaleY) + 400 );
Saluti.