delphi BufToASC

 function BufToASC(buf: array of Byte): string;
 var
   n: Integer;
 begin
   Result := '';
   for n := 0 to Length(buf) - 1 do
   begin
     Result := Result + Char(buf[n]);
   end;
 end;