Вот скрипт, почему не работает понять не могу
Код:
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.