(F11) e mude a propriedade Style para tbsCheck. Layout prontinho, agora vamos programar! Vamos trabalhar com 2 funcoes no nosso projeto. Primeiro vamos declarar elas em private: private function TextoSelecionado: TTextAttributes; procedure AtualizaBotoes;Agora vamos colocar as funcoes por inteiro no bloco de codigo, coloque isso apos a implementation:function TForm1.TextoSelecionado: TTextAttributes; //Responsavel por captar o texto selecionado para aplicar efeitos de fontebegin if RichEdit1.SelLength > 0 then Result := RichEdit1.SelAttributes else Result := RichEdit1.DefAttributes;end;procedure TForm1.AtualizaBotoes(); // responsavel por afundar os botoes em tempo de execucao (RunTime)begin with RichEdit1.Paragraph do try ToolButton9.Down := fsBold in RichEdit1.SelAttributes.Style; ToolButton10.Down := fsItalic in RichEdit1.SelAttributes.Style; ToolButton11.Down := fsUnderline in RichEdit1.SelAttributes.Style; if Ord(Alignment) = 0 then begin ToolButton12.Down := True; ToolButton15.Down := False; ToolButton14.Down := False; end; if Ord(Alignment) = 1 then begin ToolButton12.Down := False; ToolButton15.Down := True; ToolButton14.Down := False; end; if Ord(Alignment) = 2 then begin ToolButton12.Down := False; ToolButton15.Down := False; ToolButton14.Down := True; end; except application.terminate; //se acontecer algum problema nas funcoes acima, o programa fecha. end;end;Clique duas vezes no botao de novo arquivo e coloque o codigo:RichEdit1.Clear;Clique duas vezes no botao de Abrir e coloque o codigo: if opendialog1.Execute then begin Richedit1.Lines.LoadFromFile(opendialog1.FileName); Richedit1.SetFocus; end;Clique duas vezes no botao de Salvar e coloque o codigo: if Savedialog1.Execute then begin RichEdit1.Lines.SavetoFile(Savedialog1.FileName); RichEdit1.SetFocus; end;Clique duas vezes no botao de Colar e coloque o codigo: RichEdit1.PasteFromClipboard;Clique duas vezes no botao de Copiar e coloque o codigo: RichEdit1.CopyToClipboard;Clique duas vezes no botao de Recortar e coloque o codigo: RichEdit1.CutToClipboard;Clique duas vezes no botao de Negrito e coloque o codigo: if ToolButton9.Down = false then TextoSelecionado.Style := TextoSelecionado.Style - [fsBold] else TextoSelecionado.Style := TextoSelecionado.Style + [fsBold];Clique duas vezes no botao de Italico e coloque o codigo: if ToolButton10.Down then TextoSelecionado.Style := TextoSelecionado.Style + [fsItalic] else TextoSelecionado.Style := TextoSelecionado.Style - [fsItalic];Clique duas vezes no botao de Sublinhado e coloque o codigo: if ToolButton11.Down then TextoSelecionado.Style := TextoSelecionado.Style + [fsUnderline] else TextoSelecionado.Style := TextoSelecionado.Style - [fsUnderline];Clique duas vezes no botao de Alinhar a esquerda e coloque o codigo: RichEdit1.Paragraph.Alignment := TAlignment(0);Clique duas vezes no botao de Alinhar ao centro e coloque o codigo: RichEdit1.Paragraph.Alignment := TAlignment(2);Clique duas vezes no botao de Alinhar a Direita e coloque o codigo: RichEdit1.Paragraph.Alignment := TAlignment(1);Clique duas vezes no botao de Fechar o Programa e coloque o codigo:Application.terminate;Selecione o RichEdit1 va na aba Events da Object Inspector clique 2 vezes no evento onchange: AtualizaBotoes();Agora na mesma janela e com o RichEdit1 selecionado, clique 2 vezes no evento SelectionChange e coloque: AtualizaBotoes();Selecione o Form e clique 2 vezes no evento OnShow e coloque: AtualizaBotoes();Bom pessoal espero ter explicado direitinho para voces. Qualquer coisa que voces nao tiverem entendido estou disponibilizando na net os codigos fontes para que voces possam estudar. Tambem como prometido, no pacote tambem coloquei os icones utilizados no tutorial.Icones do Tutorial