function GridSave2File(AGrid: TStringGrid; const FileName: string): Boolean;
var
  List: TStringList;
  Row, Col: Integer;
  S: string;
begin
  List:= TStringList.Create();
  try
    for Row:= AGrid.FixedRows to AGrid.RowCount - 1 do
      begin
        S:= '';

        for Col:= AGrid.FixedCols to AGrid.ColCount - 1 do
          begin
            S:= S + AGrid.Cells[Row, Col];

            if Col <> AGrid.ColCount - 1
              then S:= S + '|';
          end;

        List.Add(S);
      end;

    try
      List.SaveToFile(FileName);
      Result:= True;
    except
      Result:= False;
    end;
  finally
    List.Free();
  end;
end;

oLoc_List: TStringList;
...
oLoc_List.Assign(StringGrid.Rows.Item[i]);
oLoc_List.Delimiter := '|';
WriteLn(F, oLoc_List.DelimitedText)
...