procedure ItalicClick (Sender: TObject); begin RichEdit.SelAttributes.style := RichEdit.SelAttributes.style + [fsItalic]; end;
To je set of(fsItalic,fsBold,fsUnderline) ?
procedure ItalicClick (Sender: TObject); begin RichEdit.SelAttributes.style := RichEdit.SelAttributes.style + [fsItalic]; end;