[Prisoner]

Имеем:

Код:

Procedure TForm1.Button1Click(Sender: TObject);
Begin
    Timer1.Enabled:=True;
    Edit1.Text := '5';
    Image1.Visible : = True;
End;

Procedure TForm1.Timer1Timer(Sender: TObject);
Var
    iSecondsCnt: Integer;
Begin
    iSecondsCnt := StrToInt(Edit1.Text);
    Dec(iSecondsCnt);
    If iSecondsCnt<1 Then
       Begin
            Image1.Visible := False;
            Timer1.Enabled := False;
            Edit1.Text := '';
       End
    Else
       Edit1.Text := IntToStr(iSecondsCnt);
End;

[s]Исправлено: Prisoner, 18:12 18-01-2004[/s]