Таймер (Delphi)

[CAMOBAP]

Есть программа из трех форм . Таймер запускается по открытию второй формы. Когда заканчивается в таймере время, форма 2 закрывается,выводиться сообщение что время вышло, и открывается третья форма.проблема в том, что отсчет доходит до 0 и начинает считать обратно, но уже по возрастанию.

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, sRadioButton, sPanel, sLabel, sButton;

type
  TForm2 = class(TForm)
    sLabel1: TsLabel;
    sPanel1: TsPanel;
    sRadioButton1: TsRadioButton;
    sRadioButton2: TsRadioButton;
    sRadioButton3: TsRadioButton;
    sRadioButton4: TsRadioButton;
    sButton1: TsButton;
    procedure FormCreate(Sender: TObject);
    procedure sButton1Click(Sender: TObject);
   procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;
 t: TTime;
 min,cek:integer;

implementation

uses Unit1, Unit3;

{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);
begin
t:= StrToTime('0:'+IntToStr(min)+':'+IntToStr(cek));
label1.Caption:= '0:'+IntToStr(min)+':'+IntToStr(cek);
Timer1.Enabled:= True;
end;

procedure TForm2.sButton1Click(Sender: TObject);
begin
тут исполняется код программы
end;


procedure TForm2.Timer1Timer(Sender: TObject);
begin
if t = 0
then
  begin
  Timer1.Enabled:= False;
  ShowMessage('Время вышло')
 Form2.Hide;
 Form3.Show;
  end
else
  begin
  t:= t - StrToTime('0:00:01');
  Label2.Caption:= TimeToStr(t);
  end;
end;



end.

[Valio]

Пиши

if t < 0
then

Вместо

if t = 0
then

[CAMOBAP]

все правильно работает, но таймер начинает отсчитывать при открытие программы ,а не второй формы

[Valio]

У тебя вторая форма скрыта? Ну так и включай таймер на событие TForm2.FormShow

[CAMOBAP]

Все равно не выходит .