[jorodgar]

Gracias marcos por tu aportación. Al final lo conseguí sacar con un codigo mucho mas largo, luego lo modicaré usando tu instrucción. Por si alguno le interesa otra forma de hacerlo menos optima es la siguiente :

procedure TForm1.SelectFont(Sender :TObject);
var
color,font:string;
size:integer;
negrita,cursiva,subrayado:boolean;

begin
FontDialog1.Font.Assign(RichEdit1.SelAttributes);

if (FontDialog1.Execute) then
begin
// RichEdit1.SelAttributes.Assign( FontDialog1.Font ); // Cogeria todas las propiedades
// Determina que propiedades coger del FontDialog
RichEdit1.SelAttributes.Color:=FontDialog1.Font.Color;
RichEdit1.SelAttributes.Name:=FontDialog1.Font.Name;
RichEdit1.SelAttributes.Size:=FontDialog1.font.Size;
RichEdit1.SelAttributes.Style:=FontDialog1.Font.Style;
end;

font:= RichEdit1.SelAttributes.Name;
size:=RichEdit1.SelAttributes.Size;
if (fsBold in RichEdit1.SelAttributes.Style) then negrita:=true;
if (fsItalic in RichEdit1.SelAttributes.Style) then cursiva:=true;
if (fsUnderline in RichEdit1.SelAttributes.Style) then subrayado:=true;

case RichEdit1.SelAttributes.Color of
clAqua : color:='clAgua';
clblack : color:='clBlack';
clBlue : color:='clBlue';
clCream : color:='clCream';
clDkGray : color:='clDkGray';
clFuchsia : color:='clFuchsia';
clGreen : color:='clGreen';
clLime : color:='clLime';
clLtGray : color:='clLtGray';
clMaroon : color:='clMaroon';
clMedGray : color:='clMedGray';
clMoneyGreen : color:='clMoneyGreen';
clNavy : color:='clNavy';
clOlive : color:='clOlive';
clPurple : color:='clPurple';
clRed : color:='clRed';
clSkyBlue : color:='clSkyBlue';
clTeal : color:='clTeal';
clWhite : color:='clWhite';
clYellow : color:='clYellow';
else color:='clBlack';
end;
RichEdit1.SetFocus;
end;