1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

function GetAsciiString(s: string; hex: boolean = false): string;
var x:integer;
begin
  result := '';
  for x:=1 to length(s) do begin
    if hex then result:=result+'$'+IntToHex(ord(s[x]),2)+' '
    else result := result+IntToStr(ord(s[x]))+' ';
  end;
  result := trim(result);
end;