[Amilman]

Всем доброго времени суток. Делаю через таймер чтобы Panel1 выдвигалась вверх до определенного координата но вместо этого на продолжает стремительно лететь в верх без остановки я не знаю что делать. Помогите пожалуйста)
Вот код

Код:

1 2 3 4 5 6

procedure TForm1.Timer1Timer(Sender: TObject); begin   Panel1.Top := Panel1.Top - 5;   if (Panel1.Top = 608) then     Timer1.Enabled := false;   end;

А если использовать в кнопке

Код:

1 2 3 4 5 6 7 8 9

procedure TForm1.Image3Click(Sender: TObject); begin   Panel1.Top := Panel1.Top - 5; end; procedure TForm1.Timer1Timer(Sender: TObject); begin   if (Panel1.Top = 608) then     Timer1.Enabled := false;   end;

То нужно жать кнопу каждый раз чтобы изменить кардинаты Panelи и всё ровно она пройдёт мимо нужных мне координат.