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.