Hay un componente en Dialogs>FontDialog
Que puedes utilizar para ese efecto de la siguiente manera:
1.- Insertas un TLabel y le cambias el caption con el texto que deseas
2.- Insertas un FontDialog
3.- Insertas un Boton y le agregas el siguiente codigo:
Código Delphi
[-]
if FontDialog1.Execute then
begin
Label1.Font:=FontDialog1.Font;
end;
Saludos