begin
   // comment
   //CheckSpeedInfo(1) ; // SpeedTAblename :string = '; PeriodDays :integer = -1; MaxDAteInterval :integer = -1; MinOstat :double = -1; MinDAys :integer = -1; MinRetailCount :integer = -1; SpeedFormula :integer = -1; CheckPost :integer = -1; Reasons
   savespeedinfo(1,false);
end.