Seleccionar shapes y moverlas

[turminator]

Bueno, para optimizar el tamaño de mi Form creo que haré un sistema mediante Chekbox que me permita sumar X valor a los Tedits, con lo que podremos ver la imagen que movemos pero en realidad estaria en una coordenada mucho más lejana.

La función que uso para marcar la posición en los TEdits es la siguiente:

Código Delphi [-]
Edit47.Text := IntToStr((Sender as TImage).Left);
Edit48.Text := IntToStr((Sender as TImage).Top);

Alguien sabe como podria hacer para que al seleccionar entre 4 CheckBox (esquina dereche,izquierda,arriba y abajo) pudiera sumar X valor al ya dado por las coordenadas?

Muchas gracias!