for i := 1 to 1 do for j := 1 to 1 do begin Img[i,j].Left := Img[i,j].Left +(-) 1; Img[i,j].Top := Img[i,j].Top -(+) 1; end;
Я не понял Вашего вопроса, но всё же Вам на него отвечу!