Control.RE_FmtFontColor := ReadInteger(_Data,_data_Color);
Control.RE_CharFmtArea := raSelection;
p := ReadInteger(_Data,_data_Style);
Control.RE_FmtBold := p and 1 > 0;
Control.RE_FmtItalic := p and 2 > 0;
Control.RE_FmtUnderline := p and 4 > 0;
Control.RE_FmtStrikeout := p and 8 > 0;  

_work_doFormatSel(_Data, Index);