RTF

AnsiString __fastcall ConvertToRTF(AnsiString src)
{
    AnsiString     s;
    unsigned char  c;
    int            a;
    AnsiString     sym("{}\\");
    AnsiString     okc(" ~!@#$%^&*()_+|[];:,.<>?-=`");
    int            l;
    int            i;
    AnsiString     EscRTF("\\\'");
    AnsiString     HexDigits("0123456789abcdef");
    int            p;
    AnsiString     cc;

    for(i = 1, l = src.Length(); i <= l; i++)
    {
        cc = src.SubString(i, 1);
        c = cc[1];
        if((p = sym.Pos(cc)) > 0)
        {
            s += "\\" + cc;
            continue;
        }
        if((c >= 'A' && c <= 'Z') || (c >= 'a' && c <= 'z') || (c >= '0' && c <= '9'))
        // ^^^ Да, я знаю, что здесь можно использовать макросы isalpha и isdigit
        {
            s += cc;
            continue;
        }

        if((p = okc.Pos(cc))> 0)
            s += cc;
        else
            s +=   EscRTF
                 + HexDigits.SubString(((c >> 4) & 0x0F) + 1, 1)
                 + HexDigits.SubString((c & 0x0F) + 1, 1);
    }
    return s;
}