ayuda con fondo

[Celta]

hola mmmm con este codigo logre hacer que cuando la imagen llegue al final de la pantalla y pase la ultima parte tambien recien vuelva a aparecer.
image1.Top := ( image1.Top + (5+5)) mod Self.Height;
pero el problema es que no lo copia mientras ba llegando al final esa parte que salio se copie al prinsipio... no se si me explico bien ? =D