// ..
Marking: boolean;
FirstMark, LastMark: double;
// ...
procedure TfrmMain.Chart1AfterDraw(ASender: TChart; ADrawer: IChartDrawer);
begin
lbSelectedTimeValue.Caption := FormatDateTime('YYYY-MM-DD, hh:nn', FirstMark)
+ ' - ' + FormatDateTime('YYYY-MM-DD, hh:nn', LastMark);
Marking := false;
end;
procedure TfrmMain.Chart1AxisList1MarkToText(var AText: String; AMark: Double);
begin
if Marking = false then
begin
FirstMark := AMark;
Marking := true;
end
else
LastMark := AMark;
end;