FDlgHead.Execute; DmMch.Conf2Letra.Value:= FDlgHead.Font.Name; DmMch.Conf2Tamao.Value:=FDlgHead.Font.Size;