Chart

[*Caro*]

Lo he conseguido, aquí esta el ejemplo, por si le sirve a alguien.

Código Delphi [-]
procedure TForm1.Chart1ClickSeries(Sender: TCustomChart;
  Series: TChartSeries; ValueIndex: Integer; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
 punto : Longint;
begin
 punto := Series.Clicked(x,y);
 if punto<>-1 then
   Showmessage(Series.XLabel[ValueIndex]);
end;

Saluditos

[[Fenareth]]

Yo me preguntaba quién podría responderte para ayudarte más rápido de lo que tu nos ayudas a nosotros...

La respuesta obvia: Tú misma !!

Sólo un comentario de admiración...

[*Caro*]

Muchísimas gracias por tu comentario Fenareth, de verdad que me has hecho sentir bien , aunque no merezca la admiración.

Saluditos