#pas
procedure THIRichEdit._work_doFormat;
var Text:string;
    p:byte;
begin
  if (Control.GetSelLength != 0) then {no valid selection -> quit}
  begin
    Control.RE_CharFmtArea := raSelection; {apply attribute(s) only to selection}
    Control.RE_FmtFontColor := ReadInteger(_Data,_data_Color,0);

    p := ReadInteger(_Data,_data_Style,0);
    Control.RE_FmtBold := p and 1 > 0;
    Control.RE_FmtItalic := p and 2 > 0;
    Control.RE_FmtUnderline := p and 4 > 0;
  end;
end;