Сохранение и загрузка в файла

Procedure SaveGrid(Const S: String; Const Grid: TStringGrid);  // Сохранение данных таблицы
Var ff: TextFile;
    t: Integer;
Begin
 AssignFile(ff, S);
 ReWrite(ff);
 try
  With Grid Do For t:=1 to RowCount - 1 Do 
   WriteLn(ff, StringReplace(Rows[t].Text, #13#10, #9, [rfReplaceAll]));
 finally
  CloseFile(ff);
 end;  
End;

procedure TForm2.Save(Sender: TObject);      //Сохранение всех Edit + вызов сохранения Таблицы
var
  SaveStrim: TMemoryStream;
  Text:string;
  j:Byte;
begin
 SaveStrim:=TMemoryStream.Create;
 for j := 0 to ComponentCount - 1 do
    if Components[j] is TEdit then
      Begin
        Text:=(Components[j] as TEdit).Text;
        SaveStrim.Write(text,Length(text))  ;
        Savestrim.Savetofile('Save.txt');
      end;
      Savestrim.Free;
 SaveGrid('grid.dat',StringGrid1);
end;

Procedure LoadGrid(Const S: String; Const Grid: TStringGrid); //Загрузка таблицы из файла
Var ff: TextFile;
    St: String;
Begin
 AssignFile(ff, S);
 Reset(ff);
 try
  ClearGrid(Grid); // очистка грида, если нужно
  While not Eof(ff) Do
   Begin
    ReadLn(ff, St);
    With Grid Do
     Begin
      RowCount:=RowCount + 1;
      Rows[RowCount - 1].Text:=StringReplace(St, #9, #13#10, [rfReplaceAll]);
     End; 
   End; 
 finally
  CloseFile(ff);
 end;
End;

var j:Byte;
    f:TextFile;
begin
  AssignFile(f, 'Save.txt');
  Rewrite(f);
  for j := 0 to ComponentCount - 1 do
    if Components[j] is TEdit then
        WriteLn(f, (Components[j] as TEdit).Text);
  CloseFile(f);
  SaveGrid('grid.dat',StringGrid1);
end;

var j:Byte;
    f:TextFile;
    s:string;
begin
  AssignFile(f, 'Save.txt');
  ReSet(f);
  for j := 0 to ComponentCount - 1 do
    if Components[j] is TEdit then
    begin
      ReadLn(f, s);
      (Components[j] as TEdit).Text:=s;
    end;
  CloseFile(f);
end;

RowCount:=RowCount + 1;

Procedure LoadGrid(Const S: String; Const Grid: TStringGrid); //Загрузка таблицы из файла
Var ff: TextFile;
    St: String;
Begin
 //Файловая переменная связывается с именем файла.
 AssignFile(ff, S);
 //Открытие файла в режиме "только чтение".
 Reset(ff);
 try
  ClearGrid(Grid); // очистка грида, если нужно
  //Цикл до тех пор пока не достигнут конец файла.
  While not Eof(ff) Do
   Begin
    //Читаем очередную строку из файла.
    ReadLn(ff, St);
    With Grid Do
     Begin
      //Добавляем новую строку в таблицу (т. к. мы увеличениваем общее количество строк на 1).
      RowCount:=RowCount + 1;
      //Во вновь добавленную строку добавляем данные из ранее прочитанной строки файла.
      //Распределяем данные по ячейкам, ориентируюясь на знаки табуляции.
      Rows[RowCount - 1].Text:=StringReplace(St, #9, #13#10, [rfReplaceAll]);
     End; 
   End; 
 finally
  //Закрываем файл.
  CloseFile(ff);
 end;
End;

//Процедура для удаления строк данных (т. е., исключая фиксированные строки).
procedure ClearGrid(Const Grid : TStringGrid);
var
  i : Integer;
begin
  //Очистка строк. Этот шаг необходим из-за "плавающего" бага
  //компонента TStringGrid. - Строки, удалённые через уменьшение значения
  //TStringGrid.RowCount на самом деле не всегда удаляются. - TStringGrid
  //их прячет и при последующем увеличении TStringGrid.RowCount в таблице опять
  //могут появиться ранее "удалённые" строки. Именно поэтому необходима очистка
  //перед удалением.
  for i := Grid.FixedRows to Grid.RowCount - 1 do begin
    Grid.Rows[i].Clear;
  end;
  //Удаление строк.
  //Здесь +1 - для того, чтобы после фиксированной строки осталась одна нефиксированная
  //строка - это необходимо для правильного функционирования таблицы.
  Grid.RowCount := Grid.FixedRows + 1;
end;

Procedure LoadGrid(Const S: String; Const Grid: TStringGrid); //Загрузка таблицы из файла
Var ff: TextFile;
    St: String;
  //Индекс очередной строки в которую мы намереваемся записать данные из файла.
  RowNum : Integer;
Begin
 //Файловая переменная связывается с именем файла.
 AssignFile(ff, S);
 //Открытие файла в режиме "только чтение".
 Reset(ff);
 try
  //Очистка таблицы.
  ClearGrid(Grid);
  //Индекс самой верхней нефиксированной строки.
  RowNum := Grid.FixedRows;
  //Цикл до тех пор пока не достигнут конец файла.
  While not Eof(ff) Do
   Begin
    //Читаем очередную строку из файла.
    ReadLn(ff, St);
    With Grid Do
     Begin
      //Если требуется, добавляем строку вниз таблицы.
      if RowNum = RowCount then begin
        RowCount := RowCount + 1;
      end;
      //Распределяем данные по ячейкам, ориентируюясь на знаки табуляции.
      Rows[RowNum].Text:=StringReplace(St, #9, #13#10, [rfReplaceAll]);
     End;
   End;
 finally
  //Закрываем файл.
  CloseFile(ff);
 end;
End;