TBytes в строку

[Johnson]

Здравствуйте, уважаемые!
Подскажите, как тип данных TBytes преобразовать в текст (точнее в набор НЕХ-данных)

Например: 'A1 98 7C 86 F2' вот чтоб строкой только видно было

Есть одна функция, но она работает не совсем так как надо...

function HexToString(Hex:String):String;
var
  buf:String;
  bt:Byte;
  i:Integer;
begin
  buf:='';
  Hex:=SymbolEntersCount(UpperCase(Hex));
  for i:=0 to (Length(Hex) div 2)-1 do begin
    bt:=0;
    if (Byte(hex[i*2+1])>$2F)and(Byte(hex[i*2+1])<$3A)then bt:=Byte(hex[i*2+1])-$30;
    if (Byte(hex[i*2+1])>$40)and(Byte(hex[i*2+1])<$47)then bt:=Byte(hex[i*2+1])-$37;
    if (Byte(hex[i*2+2])>$2F)and(Byte(hex[i*2+2])<$3A)then bt:=bt*16+Byte(hex[i*2+2])-$30;
    if (Byte(hex[i*2+2])>$40)and(Byte(hex[i*2+2])<$47)then bt:=bt*16+Byte(hex[i*2+2])-$37;
    buf:=buf+char(bt);
  end;
  HexToString:=buf;
end;

Помогите переделать её в нужный вид...

Заранее благодарен!

[Johnson]

Извиняюсь) Сам нашел, но пришлось доработать... Вдруг кому пригодится:
BytesToHex:

function TSDIAppForm.BToH(Data : tBytes) : String;
CONST
  HEXChars: array [0..15] of char = '0123456789ABCDEF';
VAR Nibble1 : Byte;
    Nibble2 : Byte;
    tStr,tmp : String;
    I: Integer;
begin
for I := 0 to Length(Data) - 1 do begin
  Nibble1 := (Data[I] AND $0F); { AND 00001111b }
  Nibble2 := (Data[I] AND $F0) SHR 4; { AND 11110000b }
  tStr := HEXChars[Nibble2]+HEXChars[Nibble1];
  tmp:= tmp+tStr+' ';
end;
Result:=tmp;
end;

[mihali4]

А штатная BinToHex чем не устроила ?

[Johnson]

не знал про неё...