Файлы: запись/чтение

[Proger_1]

Добрый вечер.
Итак, записали какие-то данные в СтрингГрид (в моё случае это 3 поля: код, имя, адрес). Теперь надо эти данные записать в файл, а при следующем открытии программы нужно вывести данные этого файла обратно в СтрингГрид (прочитать как я понимаю). Программа работать не хочет, может быть кто-то сможет помочь разобраться:

type
  TRec1 = record
     CusCode : integer;
     Name: string[20];
     Address: string[30];
  end;

var
  Form1: TForm1;
  F1: file of Trec1;

//Запись 
procedure ReadRec1;
var R1:TRec1;
    i:integer;
begin
  AssignFile(F1,'File1.dat');
  Reset(F1);
  while not EOF(F1) do
    begin
      Read(F1,R1);
      for i:=1 to Form1.StringGrid1.RowCount-1 do
        begin
          Form1.StringGrid1.Cells[0,i]:=IntToStr(R1.CusCode);
          Form1.StringGrid1.Cells[1,i]:=R1.Name;
          Form1.StringGrid1.Cells[2,i]:=R1.Address;
        end;
    end;
  CloseFile(F1);
end;

//Чтение
procedure WriteRec1;
var R1:TRec1; 
    i:integer;
begin
  AssignFile(F1,'File1.dat');
  ReWrite(F1);
  for i:=1 to Form1.StringGrid1.RowCount-1 do
    begin
      R1.CusCode:=StrToInt(Form1.StringGrid1.Cells[0,i]);
      R1.Name:=Form1.StringGrid1.Cells[1,i];
      R1.Address:=Form1.StringGrid1.Cells[2,i];
      Write(F1,R1);
    end;
  CloseFile(F1);
end;

procedure TForm1.ToolButton7Click(Sender: TObject);
begin
  WriteRec1;
  ShowMessage('Done');
end;

procedure TForm1.ToolButton9Click(Sender: TObject);
begin
  ReadRec1;
end;

Может быть процедра чтения написана правильно, но её я првоерить не могу, т.к ошикба возникает уже при нажатии кнопки Button7, которая вызывает процедуру записи в файл.
Ошибка такая:


Хелп плз