1:
2:
3:
4:
5:

    TStatistics = record
      Values : Double;
      Series : array [0..3] of TChartSeries;
      procedure Clear;
    end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

var StatsFile : File of TStatistics;
[...]
  try
    AssignFile(StatsFile, ExtractFilePath(ParamStr(0)) + '\Stats' +
                                         IntToStr(Nr) + '.dat');
    ReWrite(StatsFile);
    Write(StatsFile, Statistics[Nr]);
  finally
    CloseFile(StatsFile);
  end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

var StatsFile : File of TStatistics;
begin
  try
    AssignFile(StatsFile, FilePath);
    Reset(StatsFile);
    Read(StatsFile, Stats);
  finally
    CloseFile(StatsFile);
  end;
end;					

1:
2:
3:
4:
5:
6:
7:

---------------------------
Debugger Exception Notification
---------------------------
Project Project1.exe raised exception class $C0000005 with message 'access violation at 0x004084dc: read of address 0x07241270'.
---------------------------
Break   Continue   Help   
---------------------------