unit t;

interface

uses Classes, Types,windows;

type
     Tmr=class
     private
     public
          interval:cardinal;
          Notif:TNotifyEvent;
          constructor Create;
          destructor Destroy;
          procedure Start;
     end;


implementation

constructor Tmr.Create;
begin
     inherited;
end;

destructor Tmr.Destroy;
begin
     inherited
end;


procedure Tmr.Start;
var
     VisualThreadID:dword;
     p:pointer;
      intr:cardinal;
       n:TNotifyEvent;

function TikTak(Parameters:pointer):dword; stdcall;
var
     r:real;
begin
     r:=1;
     sleep(intr);
     n(self);
end;

begin
     intr:=interval;
     n:=Notif;
CreateThread(
               nil,
               0,
               @TikTak(),
               nil,
               0,
               VisualThreadID
);
end;



end.