Procedure Plus500; Var I: Byte; Begin For I:=0 to 38 do Begin Blok(280,44,319,75,ColorBlack,Buffer[4]); WriteSprite(280,44,250+I,40,289,79,Buffer[1],Buffer[4]); Wait(DatRec.fpsProdleva); If DatRec.SBEnable=True then SBPlayRaw(10) else PlaySound(0); End; End;