dibujar polígono sobre misma zona de dos imagenes

[el-mono]

Buenas.Necesito imperiosamente hacer estos pasos:

(Uso Delphi 10 Seatle)

1) Sobre un control Timage cargo una imagen con propiedad WapMode en Original y luego sobre el canvas de la imagen dibujo una forma "poligono " con coordenadas que ya tengo establecidas en el código y que me dibuja el polígono en la zona de la imagen que deseo.

2) Luego sobre otro Timage cargo nuevamente la misma imagen pero con propiedad WrapMode a Stretch y el polígono se dibuja en cualquier otro lado con las coordenadas que tenia.

Pregunta: Como hago para calcular las nuevas coordenadas para dibujar el polígono sobre la misma ubicación de la imagen con propiedad Stretch ?

[Pensa2r]

Hola buenos días, no se mucho de esto pero se me ocurre que si guardas la primera imagen ya con el polígono y luego la abres en el otro timagen... No sé, es lo que hacemos los que no llegamos a mucho código jejeje...

[el-mono]

Gracias por responder.

Lo que hago es dibujar un polígono mediante PathData usando Firemonkey con relleno transparente luego haciendo clic sobre el path dibujado y mediante la función PtInRect (la que me da si las coordenadas obtenidas mediante el puntero del mouse pertenece al Path o no) puedo repintar el polígono del path cliqueado con un color y borde. Esto me funciona si la imagen esta en modo Original si yo pongo la imagen a Stretch la función PtInRect no me reconoce las coordenadas aunque le haga click sobre la misma zona de la imagen por ello es que quería calcular las nuevas coordenadas y pesarle a la función para saber si las coordenadas están o no dentro del Path donde se hizo click.