Не работает код Делфи, после кода "пока не закрыт файл" выбросило ошибку

procedure TForm1.BitBtnOpenClick(Sender: TObject);
Var
 i:integer;
begin
 with OpenDialog1 do
  begin
   Title:='Opening file'; 
   if Execute then       
   begin
   FileNamestud:=FileNamestud;
   AssignFile(Filestud,FileNamestud); 
   ReSet(Filestud);               
   n:=0;    
   while not EOF(Filestud) do
   begin
   end;
     n:=n+1; 
     read(Filestud,Mstud[n]); 
    end;
   SpinEdit1.Text:=IntToStr(n); 
   strngrd1.RowCount:=n+1; 
   for i:=1 to n do
    with strngrd1,Mstud[i] do
     begin           
     Cells[0,i]:=IntToStr(i);
     Cells[1,i]:=fio;
     Cells[2,i]:=IntToStr(group);
     Cells[3,i]:=IntToStr(fiz);
     Cells[4,i]:=IntToStr(mat);
     Cells[5,i]:=IntToStr(net);
     Cells[6,i]:=FloatToStr(ser);
     end;
   CloseFile(Filestud); 
   end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  with TStringList.Create do
  try
    LoadFromFile('D:\1.txt');
    StringGrid1.ColCount := 5; // кол-во столбцов в файле
    StringGrid1.RowCount := Count;
    for i := 0 to Count - 1 do
      StringGrid1.Rows[i].CommaText := Strings[i];
  finally
    Free;
  end;
end;