procedure TForm1.btnTestClick(Sender: TObject);
var
   iLen           : integer;
   i              : integer;
   cChar          : char;
   iCharCode      : integer;
   CharFontStyle  : TFontStyles;
   sSymInfo       : string;
begin
   edOutput.Lines.Clear();

   iLen := Length(edRichEdit.Text);

   for i:=0 to iLen-1 do
   begin
      edRichEdit.SelStart := i;
      edRichEdit.SelLength := 1;

      //здесь именно edRichEdit.Text[i+1], а не edRichEdit.SelText, т.к. у меня для символов переводов строки SelText возвращает char(0)
      cChar := edRichEdit.Text[i+1]; 
      CharFontStyle := edRichEdit.SelAttributes.Style;

      iCharCode := Ord(cChar);

      if iCharCode <= 32 then
         sSymInfo := 'char('+IntToStr(iCharCode)+')'
      else
         sSymInfo := cChar;

      if fsBold in CharFontStyle then sSymInfo := sSymInfo + '    [BOLD]';
      if fsItalic in CharFontStyle then sSymInfo := sSymInfo + '    [ITALIC]';

      edOutput.Lines.Add(sSymInfo);
   end; //for i
end;