jak uproscic taki kod :
Chart1.RightAxis.LabelsFont.Color:=FontDialog.Font.Color;
Chart1.TopAxis.LabelsFont.Color:=FontDialog.Font.Color;
Chart1.BottomAxis.LabelsFont.Color:=FontDialog.Font.Color;
Chart1.LeftAxis.LabelsFont.Color:=FontDialog.Font.Color;
Chart4.RightAxis.LabelsFont.Color:=FontDialog.Font.Color;
Chart4.TopAxis.LabelsFont.Color:=FontDialog.Font.Color;
Chart4.BottomAxis.LabelsFont.Color:=FontDialog.Font.Color;
Chart4.LeftAxis.LabelsFont.Color:=FontDialog.Font.Color;
Chart1.RightAxis.LabelsFont.Name:=FontDialog.Font.Name;
Chart1.TopAxis.LabelsFont.Name:=FontDialog.Font.Name;
Chart1.BottomAxis.LabelsFont.Name:=FontDialog.Font.Name;
Chart1.LeftAxis.LabelsFont.Name:=FontDialog.Font.Name;
Chart4.RightAxis.LabelsFont.Name:=FontDialog.Font.Name;
Chart4.TopAxis.LabelsFont.Name:=FontDialog.Font.Name;
Chart4.BottomAxis.LabelsFont.Name:=FontDialog.Font.Name;
Chart4.LeftAxis.LabelsFont.Name:=FontDialog.Font.Name;
Chart1.RightAxis.LabelsFont.Style:=FontDialog.Font.Style;
Chart1.TopAxis.LabelsFont.Style:=FontDialog.Font.Style;
Chart1.BottomAxis.LabelsFont.Style:=FontDialog.Font.Style;
Chart1.LeftAxis.LabelsFont.Style:=FontDialog.Font.Style;
Chart4.RightAxis.LabelsFont.Style:=FontDialog.Font.Style;
Chart4.TopAxis.LabelsFont.Style:=FontDialog.Font.Style;
Chart4.BottomAxis.LabelsFont.Style:=FontDialog.Font.Style;
Chart4.LeftAxis.LabelsFont.Style:=FontDialog.Font.Style;
</delphi>