Ошибка: i/o error 104

procedure TAutomation.btnSaveClick(Sender: TObject);
var
  f: textfile;
  x, y: integer;
begin
If Savedialog1.Execute then
  assignfile(f,SaveDialog1.FileName);
  rewrite(f);
  writeln(f, stringgrid1.colcount);
  writeln(f, stringgrid1.rowcount);
  for X := 0 to stringgrid1.colcount - 1 do
    for y := 0 to stringgrid1.rowcount - 1 do
      writeln(F, stringgrid1.cells[x, y]);
  writeln(f, stringgrid2.colcount);
  writeln(f, stringgrid2.rowcount);
  for X := 0 to stringgrid2.colcount - 1 do
    for y := 0 to stringgrid2.rowcount - 1 do
      writeln(F, stringgrid2.cells[x, y]);
  writeln(f, stringgrid3.colcount);
  writeln(f, stringgrid3.rowcount);
  for X := 0 to stringgrid3.colcount - 1 do
    for y := 0 to stringgrid3.rowcount - 1 do
      writeln(F, stringgrid3.cells[x, y]);
  writeln(f, stringgrid4.colcount);
  writeln(f, stringgrid4.rowcount);
  for X := 0 to stringgrid4.colcount - 1 do
    for y := 0 to stringgrid4.rowcount - 1 do
      writeln(F, stringgrid4.cells[x, y]);
  writeln(f, stringgrid5.colcount);
  writeln(f, stringgrid5.rowcount);
  for X := 0 to stringgrid5.colcount - 1 do
    for y := 0 to stringgrid5.rowcount - 1 do
      writeln(F, stringgrid5.cells[x, y]);
  writeln(f, stringgrid6.colcount);
  writeln(f, stringgrid6.rowcount);
  for X := 0 to stringgrid6.colcount - 1 do
    for y := 0 to stringgrid6.rowcount - 1 do
      writeln(F, stringgrid6.cells[x, y]);
  writeln(f, stringgrid7.colcount);
  writeln(f, stringgrid7.rowcount);
  for X := 0 to stringgrid7.colcount - 1 do
    for y := 0 to stringgrid7.rowcount - 1 do
      writeln(F, stringgrid7.cells[x, y]);
  closefile(f);
end;

procedure TAutomation.btnSaveClick(Sender: TObject);
var
  f: textfile;
  x, y: integer;
begin
If Savedialog1.Execute then
  begin //если не отработал диалог, то и с файлом работать смысла нет
  assignfile(f,SaveDialog1.FileName);
  rewrite(f);
  writeln(f, stringgrid1.colcount);
  writeln(f, stringgrid1.rowcount);
  for X := 0 to stringgrid1.colcount - 1 do
    for y := 0 to stringgrid1.rowcount - 1 do
      writeln(F, stringgrid1.cells[x, y]);
  writeln(f, stringgrid2.colcount);
  writeln(f, stringgrid2.rowcount);
  for X := 0 to stringgrid2.colcount - 1 do
    for y := 0 to stringgrid2.rowcount - 1 do
      writeln(F, stringgrid2.cells[x, y]);
  writeln(f, stringgrid3.colcount);
  writeln(f, stringgrid3.rowcount);
  for X := 0 to stringgrid3.colcount - 1 do
    for y := 0 to stringgrid3.rowcount - 1 do
      writeln(F, stringgrid3.cells[x, y]);
  writeln(f, stringgrid4.colcount);
  writeln(f, stringgrid4.rowcount);
  for X := 0 to stringgrid4.colcount - 1 do
    for y := 0 to stringgrid4.rowcount - 1 do
      writeln(F, stringgrid4.cells[x, y]);
  writeln(f, stringgrid5.colcount);
  writeln(f, stringgrid5.rowcount);
  for X := 0 to stringgrid5.colcount - 1 do
    for y := 0 to stringgrid5.rowcount - 1 do
      writeln(F, stringgrid5.cells[x, y]);
  writeln(f, stringgrid6.colcount);
  writeln(f, stringgrid6.rowcount);
  for X := 0 to stringgrid6.colcount - 1 do
    for y := 0 to stringgrid6.rowcount - 1 do
      writeln(F, stringgrid6.cells[x, y]);
  writeln(f, stringgrid7.colcount);
  writeln(f, stringgrid7.rowcount);
  for X := 0 to stringgrid7.colcount - 1 do
    for y := 0 to stringgrid7.rowcount - 1 do
      writeln(F, stringgrid7.cells[x, y]);
  closefile(f);
  end;
end;

If Savedialog1.Execute then

If not Savedialog1.Execute then exit