Si mal no recuerdo (no tengo Delphi instalado en este momento) sería algo así:
Código Delphi
[-]
FontDialog.Font:= Label1.Font;
FontDialog.Font.Name:= Label1.Font.Name;
FontDialog.Font.Style:= Label1.Font.Style;
FontDialog.Font.Size:= Label1.Font.Size;
FontDialog.Show;
Espero sirva.
Saludongos.