[dr. F.I.N.]

у тебя инкримент перемещения равен счетчику цикла:

Код:

For i:=1 to 65 do ... img1.Top:=img1.Top-i;

У тебя i растет от 1 до 65. Хочешь двигать по единице - пиши:

Код:

For i:=1 to 65 do ... img1.Top:=img1.Top-1;