[Edinora]

Есть у меня юнит для считывания и записи в типизированный файл. Работал он хорошо, работал без глобальных проблем.... и перестал.
Почему не понятно, как исправить - не понятно.
Запись в файл проходит нормально, файл создается, ошибок нет. А вот считать с него не выходит.
Ищу совета, подскажите пожалуйста
Код:

Код:

procedure ReadTeams(FileName:String);
var
  F:File of TPerson;
  I:Integer;
  TeamsCount:Integer;
begin

  Assignfile(F,FileName); 
  TeamsCount:=0;   
  Reset(F);  
             
  If IoResult <> 0 then Exit; 
                             
  I:=FileSize(F); 
  TeamsCount:=I;  
  CMas(I);

  for I:=0 to TeamsCount-1 do
    begin
      Read(F,Form1.TeamsArray[i]);
     end;

  CloseFile(F); 
end;

Код обращения к методу:

Код:

  if FileExists(form1.FileNameTeams+'.dat')then
    ReadTeams(form1.FileNameTeams);

И сама ошибка: