Index: tagraph.pas
===================================================================
--- tagraph.pas	(revision 24574)
+++ tagraph.pas	(working copy)
@@ -406,7 +406,7 @@
 
 destructor TChart.Destroy;
 begin
-  FSeries.Free;
+  FreeAndNil(FSeries);
   FGraphBrush.Free;
 
   FLegend.Free;
@@ -983,6 +983,7 @@
 var
   i: Integer;
 begin
+  if FSeries = nil then exit;
   for i := 0 to SeriesCount - 1 do
    if Series[i].Owner = ARoot then
      AProc(Series[i]);