[Nimir]

Вот скрипт, почему не работает понять не могу

var GlobalTimer:TTimer;

procedure SendMessage(text:String);
begin
    buf:=#$4A;
    WriteD(0);
    WriteD(10);
    WriteS('');  
    WriteS(text);
    SendToClient;
end;

procedure OnGlobalTimer(Sender: TObject);
begin
    SendMessage('Текущее время '+TimeToStr(Time));  
end;

procedure Init; //Вызывается при включении скрипта
begin
    GlobalTimer:=TTimer.Create(nil);
    GlobalTimer.OnTimer:=@OnGlobalTimer;    
    GlobalTimer.interval:=1000;         
    GlobalTimer.enabled:=true;
end;

procedure Free; //Вызывается при выключении скрипта
begin
     GlobalTimer.Free;
end;

//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin

end.