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 ?