chat в hex на delphi

[SonicBob]

У нас есть поток данных с железяки, принимаем их в видел символов, необходимо перевести все это дело в hex для дальнейшей работы с ними, есть свой вариант перевода но он не работает как надо

function StrToHex(source: String): String;
var i:integer;
    c:Char;
    s:String;
begin
    s := '';
    for i:=1 to Length(source) do
    begin
      c := source[i];
      s := s +  IntToHex(Integer(c),1)+' ';
    end;
    result := s;
end;

то есть, срабатывает как надо в большинстве случаев, но некоторые символы кодируются не правильно например
символ "▐" должен кодироваться как "DE", но мы получаем результат "A".
в чем проблема и как это исправить??