#pas
procedure TPlotSeries._work_doAdd;
var y,x:real;
begin
   y := ReadReal(_Data, _data_ValueY);
   x := ReadReal(_Data, _data_ValueX);
   if _prop_Step <> 0 then
     if FSeries.Count = 0 then
       x := 0
     else
       x := FSeries.Values[FSeries.Count-1].x + _prop_Step;  
   FSeries.Add(y, x);
   FGrapher.ReDraw;
end;