che sorgenti cerchi?

per fare il sottolineato o il neretto c'e' solo una proprietà dello stile da applicare.

questo e' un esempio di codice di quando premo il pulsante per attivare/disattivare la sottolineatura

codice:
procedure TFrmAgenda.BtnUnderlineClick(Sender: TObject);
begin
   if BtnUnderline.Down then
   RichEdit1.SelAttributes.style := RichEdit1.SelAttributes.Style + [fsUnderline]
   else
   RichEdit1.SelAttributes.style := RichEdit1.SelAttributes.Style - [fsUnderline];
end;
ciao