Orientandolo a una solución POO, podes crear un descendiente de TImage que tenga algunas propiedades nuevas, digamos
AbsoluteLeft : Double o Extended
AbsoluteTop : Double o Extended
UnitsPerPixel: Double o Extended.
Cada vez que se modifica la propiedad AbsoluteLeft o AbsoluteTop, se utiliza el valor de UnitsPerPixel para encontrar la posición en pantalla, haciendo el proceso transparente al programador, tal como ocurria en VB.
Hasta luego.,