[Amilman]

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

Код:

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

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

Код:

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и и всё ровно она пройдёт мимо нужных мне координат.