Delphi: движение маркера по игровому полю

[Blondy]

Делаю в Delphi "Морской бой" из игрового автомата . Есть маркер - пуля, которая, в случае нажатия игроком клавиши "пробел" должна начать движение со стартовой позиции до определенного предела. Описываю движение в цикле, но он выдает ошибки. Я не знаю, как их исправить - помогите!
Вот код:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);

  begin
if key=32 then // запуск маркера пробелом
 //создаем счетчик для движения маркера
 begin

  i:=marker.Top; //переменной присваиваем начальное значение,
  //совпадаюшее с верхом маркера
    for i:=0 to -200 // маркер должен начать движение с начальной позиции
    // до определенного придела
      do
        begin
          i:=i-1;//шаг иттерации - маркер движется вверх
        end;



  end;

end.

[Fuadik]

В цикле for i:=0 to -200 должно быть i:=0 downto -200 do и желательно писать dec(i) вместо i:=i-1

[crystalbit]

плюс ты в цикле модифицируешь переменную цикла
может, ты хотел написать marker.Top:=marker.Top+1?
да и паузы не мешали бы хоть какие

[Blondy]

Ага, спасибо, буду пробовать))

Если что - снова к Вам))


P.S. если я напишу marker.Top:=marker.Top+1 он будет двигаться вниз, а мне-то нужно вверх)))

[crystalbit]

-1, да, опечатался
я имел в виду то, что надо менять не i, а marker.Top

[Blondy]

Я все поменяла, а он все равно пишет Assigment to FOR-Loop variable 'i'((((
Сейчас получается следующий код:

var
  Form1: TForm1;
   i:integer;

implementation

{$R *.dfm}

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);

  begin
if key=32 then 
 begin

  i:=marker.Top; 
    for i:=0 downto -200 
      do
        begin
          dec(i);
        end;



  end;

end.

[Alex Cones]

for i:=0 downto -200
do
begin
dec(i);
end;

НИКОГДА! Слышите? НИКОГДА! Не трогайте переменную, которая сейчас в цикле!

Dec(Marker.Top)

[crystalbit]

зачем в цикле for менять переменную i? цикл for сам меняет её от 0 до -200

    for i:=0 downto -200 
      do
        begin
          marker.Top:=marker.Top-1;
        end;

вероятно так?

[Blondy]

Спасибо)))Я не волшебник, а только учусь))

[Blondy]

Сделала)) Только я нажимаю на пробел, а он - маркер - как прыгнет! А задумка была, чтобы маркер двигался по полю не такими тигриными прыжками, а совершал движение как трассирующая пуля. Цикл нужен для того, чтобы пользователь не жал постоянно на пробел, чтобы двигать маркер, а было так - пробел нажат, маркер стартанул, и пока не дойдет до определенной границы его движение продолжалось. Нужно думать какой-нибудь while.