procedure Decode6BitBuf(source: string; buf: PChar; buflen: integer);
const
Masks: array[2..6] of byte = ($FC, $F8, $F0, $E0, $C0);
var
i, len, bitpos, madebit, bufpos: integer;
ch, tmp, _byte: Byte;
begin
ch:=0;
try
len := Length (source);
bitpos := 2;
madebit := 0;
bufpos :=...