Suponiendo que ya tienes la parte del botón y la imagen moviendose, es tan simple como verificar la posición de la imagen antes de moverla.
El Pseudocódigo sería algo asi:
Código:
// Hasta donde puede avanzar la imagen
LimitePosicionDerecha := 900
// Cantidad de pixels que se moverá al presionar una tecla
Avence := 10
OnKeyPress
begin
// Avanzo la imagen
Imagen.Left := Imagen.Left + Avence
// Verifico si me he salido de la pantalla
if Imagen.Left > LimitePosicionDerecha then
Imagen.Left := 1
end