#pas
procedure TPlotSeries._work_doMaxValues;
begin
   with FSeries do begin
     MaxValues := ToInteger(_Data);
     if Count > MaxValues then begin
       Count := MaxValues;
       SetLength(Values,Count);
     end; 
   end;
end;