[xkor]

Asmoday, вот ещё в качестве бонуса более быстрый и стабильный вариант StringToHex:

function StringToHex(str1: AnsiString; sep: AnsiChar = #0): AnsiString;
const
  hexAlf: array[0..15] of AnsiChar = '0123456789ABCDEF';
var
  i,size:Integer;
begin
  size:=Length(str1);
  if sep=#0 then begin
    SetLength(Result,size*2);
    for i:=1 to size do begin
      Result[i*2-1]:=hexAlf[Byte(str1[i]) shr 4];
      Result[i*2]:=hexAlf[Byte(str1[i]) and $f];
    end;
  end else begin
    SetLength(Result,size*3);
    for i:=1 to size do begin
      Result[i*3-2]:=hexAlf[Byte(str1[i]) shr 4];
      Result[i*3-1]:=hexAlf[Byte(str1[i]) and $f];
      Result[i*3]:=sep;
    end;
  end;
end;