[alexteam]

timer.enabled := true/false

Добавлено через 2 минуты

var
  SitStand:TTimer;

procedure Init;
begin
  useforconnectname := 'brbr';
  SitStand:=TTimer.Create(nil);
  SitStand.OnTimer:=@OnSitStand;
  SitStand.enabled:=false;
  SitStand.interval:=3000;
end;

procedure OnSitStand(Sender: TObject);
begin
  buf:=hstr('56 00 00 00 00 00 00 00 00 00');
  SendToServer;
end;

procedure Free;
begin
  SitStand.Free;
end;

begin
  if FromClient then
  case pck[1] of
    #$49: 
      begin
        SitStand.enabled := not SitStand.enabled;
        pck:='';
      end;
  end;
end.