[judoboy]

Te paso el código de como lo hago yo

if (fuentes.Execute) then
 begin
    DBObservaciones.SelAttributes.Color:=fuentes.Font.Color;
    DBObservaciones.SelAttributes.Name:=fuentes.Font.Name;
    DBObservaciones.SelAttributes.Size:=fuentes.font.Size;
    DBObservaciones.SelAttributes.Style:=fuentes.Font.Style;
  end;

Donde Fuentes es un TFontDialog y DBObservaciones es el DBRichEdit;