function RemoveUnwantedChars(const From: String): String;
var
  c: Integer;
begin
  Result := From;
  c := Length(Result);
  while (c > 0) do
  begin
    if Byte(Result[c]) < $20
      then Delete(Result, c, 1);
    dec(c);
  end;

  Result := StringReplace(Result, char($8A), #13#10, [rfReplaceAll]); // Line Break
  Result := StringReplace(Result, char($86), '', [rfReplaceAll]); // Emphesis (Italic) On
  Result := StringReplace(Result, char($87), '', [rfReplaceAll]); // Emphesis (Italic) Off
end;