Someone

function ConvertDataToAscii(Buffer: pointer; Length: Word): string;
var
  Iterator: integer;
  AsciiBuffer: string;
begin
  AsciiBuffer := '';
  for Iterator := 0 to Length - 1 do
  begin
    if char(pointer(integer(Buffer) + Iterator)^) in [#32..#127] then
      AsciiBuffer := AsciiBuffer +  char(pointer(integer(Buffer) + Iterator)^)
    else
      AsciiBuffer := AsciiBuffer + '.';
  end;
  Result := AsciiBuffer;
end;