type TBMKey=record Length:Integer; Offsets:array[0..255] of Integer; ps:PAnsiChar; end; procedure InitKeyDistance(var AKey:TBMKey); var I:Integer; begin AKey.Le