procedureTForm1.Button1Click(Sender:TObject);vari:Integer;begini:=SendMessage(Richedit1.handle,EM_LINEFROMCHAR,Richedit1.selstart,0)+1;ShowMessage(IntToStr(i));...

privatevoidchartControl_ObjectSelected(objectsender,HotTrackEventArgse){e.Cancel=false;XYDiagramxyDiagram=null;if(e.ObjectisXYDiagram){xyDiagram=(XYDiagram)e.Ob...