function Chr2(lo, hi: Byte): String;
begin
SetLength(Result, 2);
Result[1] := Chr(hi);
Result[2] := Chr(lo);
end;