[xrumas]

Сообщение от angvelem

Замени:

Код:

  for Ch := #0 to #255 do AStat[Ch] := 0;

на

Код:

  FillChar(AStat, SizeOf(AStat), 0);

второй код понятнее и удобнее.

Читал про эту процедуру и забыл пост обновить c программой