Игра "Догонялки"

[torres0910]

В игре есть 3 уровня сложности, помогите сделать так , что бы когда таймер достигает 60 секунд игра заканчивалась победой игрока.

var
  Form1: TForm1;
  Step: Byte = 10;
  Time: Integer = 0;
  Level: Byte = 1;

implementation

uses Unit2, Unit3;

{$R *.dfm}

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Player.Left:=X-Round(Player.Width/2);
  If Y > Bevel1.Top Then
    Player.Top:=Y-Round(Player.Height/2);
end;

procedure TForm1.GameTimerTimer(Sender: TObject);
Var dx,dy: Integer;
begin

  If Player.Left+Player.Width < Enemy.Left Then
    dx:=Player.Left+Player.Width-Enemy.Left
  Else If Enemy.Left+Enemy.Width < Player.Left Then
    dx:=Player.Left-Enemy.Left-Enemy.Width
  Else
    dx:=0;

  If Player.Top+Player.Height < Enemy.Top Then
    dy:=Enemy.Top-Player.Top+Player.Height
  Else If Enemy.Top+Enemy.Height < Player.Top Then
    dy:=Enemy.Top-Enemy.Height-Player.Top
  Else
    dy:=0;

  If (dx = 0) And (dy = 0) Then
  Begin
    GameTimer.Enabled:=False;
    Timer.Enabled:=False;
    LevelTimer.Enabled:=False;
    StartButton.Enabled:=True;
    form2.visible:=true;
    RadioButton1.Enabled:=true;
       RadioButton2.Enabled:=true;
       RadioButton3.Enabled:=true;

    Exit;
  End;

  If (Abs(dx) >= Abs(dy)) And (dx <> 0) Then
    If dx < 0 Then
      Enemy.Left:=Enemy.Left-Step
    Else If dx > 0 Then
      Enemy.Left:=Enemy.Left+Step
  Else Else If (dy <> 0) Then
    If dy < 0 Then
      Enemy.Top:=Enemy.Top+Step
    Else If dy > 0 Then
      Enemy.Top:=Enemy.Top-Step;

end;

procedure TForm1.StartButtonClick(Sender: TObject);
begin
RadioButton1.Enabled:=false;
RadioButton2.Enabled:=false;
RadioButton3.Enabled:=false;
if RadioButton1.Checked = false
or RadioButton2.Checked = false
or RadioButton3.Checked = false
then showmessage('Ошибка.Выберите сложность');

  Time:=0;
  Level:=1;
  GameTimer.Enabled:=True;
  Timer.Enabled:=True;
  LevelTimer.Enabled:=True;
  StartButton.Enabled:=False;
   label1.Caption:='Уровень:1'
end;


procedure TForm1.TimerTimer(Sender: TObject);
begin
  Inc(Time);
  If Time < 60 Then
    TimeLabel.Caption:=IntToStr(Time)+' сек.'
  Else
    TimeLabel.Caption:=IntToStr(Time div 60)+' мин. '+IntToStr(Time mod 60)+' сек.';
end;

procedure TForm1.LevelTimerTimer(Sender: TObject);
begin
  If GameTimer.Interval >= 10 Then
  Begin
    GameTimer.Interval:=GameTimer.Interval-9;
    Inc(Level);
    label1.Caption:='Уровень:'+IntToStr(Level);
  End
  Else
  Begin
    GameTimer.Enabled:=False;
    Timer.Enabled:=False;
    LevelTimer.Enabled:=False;
    StartButton.Enabled:=True;
     form3.visible:=true;

  End;
end;

procedure TForm1.RadioButton1Click(Sender: TObject);
begin
GameTimer.Interval:=100;
end;

procedure TForm1.RadioButton3Click(Sender: TObject);
begin
 GameTimer.Interval:=200;
end;
procedure TForm1.RadioButton2Click(Sender: TObject);
begin
 GameTimer.Interval:=300;
end;

end.