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