Trouble with using TTImer.

[CynicRus]

Hi everyone. I'l try use TTimer in my script. Is write next code:


var
Timer: TTimer;

procedure MyProc;
begin
writeln('Timer is work');
end;

procedure Proc(Sender: TObject);
begin
If (Sender = Timer) then
MyProc;
end;

procedure InitTimer;
begin
Timer := TTimer.Create(nil);
Timer.Interval := 1000;
Timer.OnTimer := @Proc;
Timer.Enabled :=true;
end;
begin
InitTimer;
end;
- that compile fine but isn't work. How i can use TTimer in my script?

[P1ng]

Added Proc(Timer); and full stop on mainloop.
var
Timer: TTimer;

procedure MyProc;
begin
writeln('Timer is work');
end;

procedure Proc(Sender: TObject);
begin
If (Sender = Timer) then
MyProc;
end;

procedure InitTimer;
begin
Timer := TTimer.Create(nil);
Timer.Interval := 1000;
Timer.OnTimer := @Proc;
Timer.Enabled :=true;
end;

begin
InitTimer;
Proc(Timer);
end.

This is the debug -
Compiled successfully in 16 ms.
Timer is work
Successfully executed.

[CynicRus]

Tnx.