Почему не работает?
Код:
var
Timer01: TTimer;
procedure OnTimer01(Sender: TObject);
begin
buf:=hstr('56 00 00 00 00 00 00 00 00 00');
SendToServer();
end;
procedure Init;
begin
Timer01:=TTimer.Create(nil);
Timer01.OnTimer:=@OnTimer01;
Timer01.enabled:=true;
Timer01.interval:=1000;
end;
procedure Free;
begin
Timer01.enabled:=false;
end;
begin
end.