[Bars1992]

Для удобной загрузки созранять лутче так

Код:

procedure TForm1.SpeedButton2Click(Sender: TObject);
Var 
    F : TextFile;
begin
  AssignFile(F, 'Test.txt');
  Rewrite(F);
  For I := 1 to StringGrid1.RowCount - 1 do
  Begin
       Writeln(F,StringGrid1.Cells[0,I]); 
       Writeln(F,StringGrid1.Cells[1,I]);
 
  end;
  CloseFile(F)
end;

загрузка

Код:

procedure TForm1.SpeedButton3Click(Sender: TObject);
Var 
    F : TextFile;
begin
  AssignFile(F, 'Test.txt');
  Reset(F);
  while not EOF(f)  do
  Begin
       readln(F,StringGrid1.Cells[0,I]); 
       readln(F,StringGrid1.Cells[1,I]);
 
  end;
  CloseFile(F)
end;

Не компилил, но должно работать.