Проблемы с чтением/записью классов в файл

Parabola = class
    a: single;
    b: single;
    c: single;
    procedure MakeRandomParabola();
    procedure EnterParabola();
    function ParabolaToString(): string;
    function SolutionsDelta(): single;
    constructor Create();
  end;
 
  ParabolaFile = file of Parabola;

constructor Parabola.Create();
begin
  Self.a := 0;
  Self.b := 0;
  Self.c := 0;
end;
 
procedure Parabola.MakeRandomParabola();
begin
  randomize();
  Self.a := random(100) / 10;
  Self.b := random(100) / 10;
  Self.c := random(100) / 10;
end;
 
procedure Parabola.EnterParabola();
begin
  Self.a := StrToFloat(InputBox('Ввод', 'Введите параметр a', ''));
  Self.b := StrToFloat(InputBox('Ввод', 'Введите параметр b', ''));
  Self.c := StrToFloat(InputBox('Ввод', 'Введите параметр c', ''));
end;
 
function Parabola.ParabolaToString(): string;
var
  res: string;
begin
  res := 'y=' + FloatToStr(Self.a) + '*x^2+' + FloatToStr(Self.b) +
    '*x+' + FloatToStr(Self.c);
  Result := res;
end;
 
function Parabola.SolutionsDelta(): single;
var
  D: single;
  x1, x2: single;
  res: single;
begin
  D := sqr(Self.b) - 4 * Self.a * Self.c;
  if (D > 0) then
  begin
    x1 := (-Self.b + sqrt(D)) / (2 * Self.a);
    x2 := (-Self.b - sqrt(D)) / (2 * Self.a);
    res := abs(x2 - x1);
  end
  else
    res := 0;
  Result := res;
end;

procedure CreateParabolaFile(fileName: string);
var
  f: ParabolaFile;
  i, Count: integer;
  mode: integer;
  buf: Parabola;
begin
  mode := StrToInt(InputBox('Ввод',
    'Введите режим. 1 - ввод парабол вручную, 2 - ввод случайных парабол',
    ''));
  Count := StrToInt(InputBox('Ввод',
    'Введите количество вводимых парабол', ''));
  AssignFile(f, fileName);
  rewrite(f);
  reset(f);
  for i := 1 to Count do
  begin
    buf := Parabola.Create();
    case mode of
      1: buf.EnterParabola();
      2: buf.MakeRandomParabola();
    end;
    Write(f, buf);
  end;
  CloseFile(f);
end;
 
function ReadFile(fileName: string): TStrings;
var
  f: ParabolaFile;
  res: TStringList;
  bufP: Parabola;
  bufS: string;
begin
  res := TStringList.Create();
  AssignFile(f, fileName);
  Reset(f);
  while not EOF(f) do
  begin
    bufP := Parabola.Create();
    Read(f, bufP);
    bufS := bufP.ParabolaToString();
    res.Add(bufS);
  end;
  CloseFile(f);
  Result := res;
end;