[Alegun]

Добавьте в функцию HexToStr() строчку:

Код:

{функция преобразования HEX -> строка}
function TForm1.HexToStr(hex: string): string;
var
  i: Integer;
begin
  hex:= StringReplace(hex, ' ', '', [rfReplaceAll]);
// вот эту
  hex:= StringReplace(hex, #13 , '', [rfReplaceAll]);
  
for i:= 1 to Length(hex) div 2 do
    Result:= Result + Char(StrToInt('$' + Copy(hex, (i-1) * 2 + 1, 2)));
end;