fontdialog1.Font.Name:='Myriad Pro';
fontdialog1.Font.Size:=10;
fontdialog1.Font.Style:=[fsItalic];
fontdialog1.Font.Style:=fontdialog1.Font.Style+[fsunderline];
fontdialog1.Font.Color:=clFuchsia;
и тд.
если цвет, значит цвет:
Код:
fontdialog1.Font.Color:=label1.font.color;