Fórum Timer #228626

(* Declare em Var(no início do Form, acima de implementation a variavel TempoTotal *)
var
TempoTotal: Integer = 0;

...

procedure TForm1.TimerTimer(Sender: TObject);
begin
TempoTotal := TempoTotal + 1;
Label1.Caption := IntToStr(TempoTotal);

if TempoTotal = 30 then
begin
Timer.Enabled := False;
ShowMessage(´O tempo esgotou. O Sistema será encerrado´);
Close;
end;
end;

Disculpa, esqueci...

as propriedades devem estar assim:

Enable = True
Interval = 1000

(*
O q ele faz é executar o evento OnTimer no intervalo de tempo definido em Interval, neste caso a cada segundo. Ok?
*)

procedure TFormSenha.Timer1Timer(Sender: TObject);
var
Cont,i : integer;
begin
cont:=0;
for i := 1 to 30 do
begin
Cont := Cont + 1;
TempoLA.Caption := IntToStr totime(cont);
end;
if Cont = 30 then
begin
Timer1.Enabled := False;
ShowMessage(´O tempo esgotou. O Sistema será encerrado´);
end;
end;

(*
Coloque um label e um Timer no form e faça o teste com uma nova applicação e depois adapte ao seu programa
*)

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Timer1: TTimer;
Label1: TLabel;
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
TempoTotal: Integer = 0;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
TempoTotal := TempoTotal + 1;
Label1.Caption := IntToStr(TempoTotal);

if TempoTotal = 60 then
begin
Timer1.Enabled := False;
ShowMessage(´O tempo esgotou. O Sistema será encerrado´);
Close;
end;
end;

end.