Procedure UpdateDuchod;
Begin
  HideMouse;
  Blok(264,31,319,39,ColorBlack,Buffer[4]);
  OutNumber(264,33,DatRec.Hotovost,False,Buffer[4]);
  If ((DatRec.Hotovost>=0) and (DatRec.Hotovost<10)) then OutText(272,32,'KŸ',Buffer[4]);
  If ((DatRec.Hotovost>=10) and (DatRec.Hotovost<100)) then OutText(278,32,'KŸ',Buffer[4]);
  If ((DatRec.Hotovost>=100) and (DatRec.Hotovost<1000)) then OutText(284,32,'KŸ',Buffer[4]);
  If ((DatRec.Hotovost>=1000) and (DatRec.Hotovost<10000)) then OutText(290,32,'KŸ',Buffer[4]);
  If ((DatRec.Hotovost>=10000) and (DatRec.Hotovost<100000)) then OutText(296,32,'KŸ',Buffer[4]);
  If ((DatRec.Hotovost>=100000) and (DatRec.Hotovost<9999999)) then OutText(307,32,'KŸ',Buffer[4]);
  ShowMouse;
End;