Добавьте в функцию 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;