program Timers;

{$APPTYPE CONSOLE}

uses
  FastMM4,
  SysUtils,
  JvThreadTimer;

type
  TDummy = class
    class procedure OnTimer(Sender: TObject);
  end;

var
  T1: TJvThreadTimer;
  i: Integer;
  Choice: String;

{ TDummy }

class procedure TDummy.OnTimer(Sender: TObject);
begin
  Writeln('OnTimer');
end;

begin
  for i := 1 to 10 do
    begin
      T1 := TJvThreadTimer.Create(nil);
      try
        T1.OnTimer := TDummy.OnTimer;
        T1.Interval := 50;
        T1.Enabled := True;
        Sleep(100);
      finally
        T1.Free;
      end;
    end;
end.