Таймер

[ЕгорКр]

Добрый вечер.
Вообщем вот отсчет времени, начинается с 15 секунд, когда остается 10 секунд, цифры становятся красными. Как сделать так, чтобы после того как отсчет закончится выводилось окошко с полем "Введите Ваше имя: ____" и Кнопка "Ок".
Надеюсь на Вашу помощь, спасибо.

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;

type
TForm1 = class(TForm)
tmr1: TTimer;
lbl1: TLabel;
procedure tmr1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var Form1: TForm1;
Seconds,Minutes:Integer;

implementation

{$R *.dfm}

procedure TForm1.tmr1Timer(Sender: TObject);
begin
Seconds:=Seconds-1;
if(seconds<0) Then
Begin
Seconds:=15;
end ;

If (seconds = 10) Then
lbl1.Font.Color:=clRed;

If (seconds = 0) Then
Tmr1.Enabled:=False;
Lbl1.Caption:=IntToStr(Seconds);
end;

end.

[alextrof94]

Begin
Seconds:=15;
end ;

это в создание формы вынеси

[Человек_Борща]

If (seconds = 0) Then
begin
Tmr1.Enabled:=False;
Lbl1.Caption:=IntToStr(Seconds);
sName:=InputQuerty('Введите ваше имя','Ваше имя: ','');
end;
end;

[ЕгорКр]

Не запускает, ошибка в этой части:

sName:=InputQuerty('Введите ваше имя','Ваше имя: ','');

sName ему не нравится.

[alextrof94]

а додумать самому чтоже может быть такое sName не айда?

[ЕгорКр]

Неа, что-то не до понимаю

[ЕгорКр]

Актуально.