Убрать ошибку при отмене сохранения

procedure TForm1.SaveClick(Sender: TObject);
var
  i: Integer;
begin
if s = '' then Form1.SaveasClick(Sender) else
      begin
       Assignfile(f,S);
               end;
        rewrite(f,sizeof(rec));
  for i := 1 to StringGrid1.RowCount-1 do
    begin
     rec.fio:=StringGrid1.cells[1,i];
      rec.country:=StringGrid1.Cells[2,i];
      rec.region:=StringGrid1.Cells[3,i];
      rec.city:=StringGrid1.Cells[4,i];
      seek(f,i-1);
      Blockwrite(f,rec,1);
      end;
      closefile(f);
    end;

procedure TForm1.SaveClick(Sender: TObject);
var
   i: Integer;
begin
   if s = '' then Form1.SaveasClick(Sender) else
   begin
      Assignfile(f,S);
      rewrite(f,sizeof(rec));
      for i := 1 to StringGrid1.RowCount-1 do
      begin
         rec.fio:=StringGrid1.cells[1,i];
         rec.country:=StringGrid1.Cells[2,i];
         rec.region:=StringGrid1.Cells[3,i];
         rec.city:=StringGrid1.Cells[4,i];
         seek(f,i-1);
         Blockwrite(f,rec,1);
      end;
      closefile(f);
   end;
end;