[shamos]

Почему не работает?

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.