Вот в этой процедуре что нужно прописать к примеру для функции у=х*х.
procedure TForm1.Series1Click(Sender: TChartSeries; ValueIndex: Integer;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

begin

end;

end.
Или может вообще не тут.