Компонент Timer в программе тесте

[Merlin88]

Помогите пожалуйста!!! Я написал программу тест, теперь нужно поставить таймер с обратным отсчётом времени. Когда время закончится надо чтобы программа выдала сообщение ваше время истекло и вывел результат
Вот код но таймер не виден
procedure TForm2.FormCreate(Sender: TObject);
var
i:integer;
begin
i:=300000;
Timer1.Enabled:=true;
end;

procedure TForm2.Timer1Timer(Sender: TObject);
var
i:integer;
begin
i:=i-1;
if i=0 then
begin
Timer1.Enabled:=false;
ShowMessage('Ваше время истекло');
Button1.Click;
end;
end;

end.
как сделать так чтобы таймер был виден после запуска теста

[Serge_Bliznykov]

и что не получается то? Не можете таймер мышкой перетащить на форму?
Или не знаете, как таймеру временной интервал задать/таймер запустить?
Или не знаете, как обратный отсчёт организовать?
Или не знаете, как сообщение выдать - ваше время истекло?

в чём сложность то?!

[Merlin88]

какой код написать чтобы всё работало

[Serge_Bliznykov]

пример

исходники: TmerBackExample.rar

исполняемый файл: TmerBackExample_exe.rar

суть (код):

type
  TForm3 = class(TForm)
    Timer1: TTimer;
    lbQuestion: TLabel;
    edAnswer: TEdit;
    btCheckAnswer: TButton;
    lbTimeRemain: TLabel;
    btStart: TButton;
    procedure btStartClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ShowRemainTime;
    procedure Timer1Timer(Sender: TObject);
    procedure btCheckAnswerClick(Sender: TObject);
  private
    FinishTime : TDateTime;
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation
uses DateUtils;

{$R *.dfm}

procedure TForm3.ShowRemainTime;
var dDiff : TTime;
begin
  dDiff := FinishTime - now();
  lbTimeRemain.Caption := TimeToStr(dDiff);
end;

procedure TForm3.Timer1Timer(Sender: TObject);
begin
  if now()<FinishTime then
    ShowRemainTime
  else begin {баста! время истекло}
     Timer1.Enabled := false;
     btCheckAnswer.Enabled := false;
     lbTimeRemain.Caption := 'Ваше время истекло!';
     ShowMessage('Ответ не был дан!');
  end;

end;

procedure TForm3.btCheckAnswerClick(Sender: TObject);
begin
  Timer1.Enabled := false;
  btCheckAnswer.Enabled := false;
  btCheckAnswer.Visible := false;
  if trim(edAnswer.Text)='6' then begin
    lbTimeRemain.Font.Color := clGreen;
    lbTimeRemain.Caption := 'ПРАВИЛЬНО!'
  end
  else
    lbTimeRemain.Caption := 'НЕВЕРНО :(!!'
end;

procedure TForm3.btStartClick(Sender: TObject);

begin
  btStart.Enabled := false;
  lbQuestion.Visible := true;
  edAnswer.Visible := true;
  btCheckAnswer.Visible := true;
  FinishTime := now();
  {время на тест 2 минуты 15 секунд}
  FinishTime := IncMinute(FinishTime, 0); {0 минут  - тут можно поставить столько минут, сколько надо}
  FinishTime := IncSecond(FinishTime, 15); {15 секунд}
  ShowRemainTime;
  lbTimeRemain.Visible := true;
  Timer1.Interval := 1000; {каждую секунду обновлять время}
  Timer1.Enabled := true; {запустили таймер}
end;

procedure TForm3.FormCreate(Sender: TObject);
begin
  Timer1.Enabled := false;
  lbQuestion.Visible := false;
  edAnswer.Visible := false;
  lbTimeRemain.Visible := false;
  btCheckAnswer.Visible := false;
end;


end.