Function AddChartValue:Integer; overload;
    Function AddChartValue(Const AValue:TChartValue):Integer; overload; virtual;

Function TChartValueList.AddChartValue(Const AValue:TChartValue):Integer;
begin
  TempValue:=AValue;
  // из виртуального метода идет вызов основного невиртуального
  result:=AddChartValue;
end;

    Procedure Delete(ValueIndex:Integer); overload; virtual;
    Procedure Delete(Start,Quantity:Integer); overload;

Procedure TChartValueList.Delete(ValueIndex:Integer);
begin
  Count:=Count-1;
  if ValueIndex<Count then  // 7.01
  begin
    System.Move(Value[ValueIndex+1],Value[ValueIndex],
                SizeOf(TChartValue)*(Count-ValueIndex)); { 5.03 }
  end;
  Modified:=True;
end;

Procedure TChartValueList.Delete(Start,Quantity:Integer);
begin
  if Quantity>(Count-Start) then
     Quantity:=Count-Start;

  Count:=Count-Quantity;

  if Start<Count then  // 7.01
     System.Move(Value[Start+Quantity],Value[Start],
                 SizeOf(TChartValue)*(Count-Start));
  Modified:=True;
end;