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;