Eigentlich müsste doch das hier genügen:
Delphi-Quellcode:
procedure TDemoForm.ChartGetAxisLabel(Sender: TChartAxis;
Series: TChartSeries; ValueIndex: Integer; var LabelText: String);
begin
LabelText := ShortMonthNames[Trunc(Series.XValue[ValueIndex])];
end;
Freundliche Grüße