StringGrid Сохранение в файл в виде таблицы ( через - и | )

function tir(n: integer): string;
var
  i: integer;
  s: string;
begin
  s := '';
  for i := 1 to n do
    s := s + '-';
  tir := s;
end;
 
function adder(s: string; n: integer): string;
var
  i: integer;
  tmp: string;
begin
  tmp := '';
  for i := 1 to n - length(s) do
    tmp := tmp + ' ';
  adder := tmp + s;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  a: array of integer;
  i, j, dl: integer;
  s1, s2: string;
  str: tstringlist;
begin
  str := tstringlist.create;
  setlength(a, stringgrid1.ColCount);
  for i := 0 to stringgrid1.ColCount - 1 do
  begin
    a[i] := 0;
    for j := 0 to stringgrid1.rowcount - 1 do
      if length(stringgrid1.Cells[i, j]) > a[i] then
        a[i] := length(stringgrid1.Cells[i, j]);
  end;
  dl := 0;
  for i := 0 to stringgrid1.ColCount - 1 do
    dl := dl + a[i];
  s1 := tir(dl + stringgrid1.ColCount + 1);
  str.Append(s1);
  for i := 0 to stringgrid1.rowcount - 1 do
  begin
    s2 := '|';
    for j := 0 to stringgrid1.colcount - 1 do
      s2 := s2 + adder(stringgrid1.Cells[j, i], a[j]) + '|';
    str.Append(s2);
    str.Append(s1);
  end;
  str.SaveToFile('1.txt');
  setlength(a, 0);
  str.free;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  a: array of integer;
  i, j, dl: integer;
  f: textfile;
  s1: string;
begin
  assignfile(f, '2.txt');
  rewrite(f);
  setlength(a, stringgrid1.ColCount);
  dl := 0;
  for i := 0 to stringgrid1.ColCount - 1 do
  begin
    a[i] := 0;
    for j := 0 to stringgrid1.rowcount - 1 do
      if length(stringgrid1.Cells[i, j]) > a[i] then
        a[i] := length(stringgrid1.Cells[i, j]);
    dl := dl + a[i];
  end;
  s1 := '';
  for i := 1 to dl + stringgrid1.ColCount + 1 do
    s1 := s1 + '-';
  write(f, s1);
  for i := 0 to stringgrid1.rowcount - 1 do
  begin
    writeln(f);
    write(f, '|');
    for j := 0 to stringgrid1.colcount - 1 do
      write(f, stringgrid1.Cells[j, i]: a[j], '|');
    writeln(f);
    write(f, s1);
  end;
  closefile(f);
  setlength(a, 0);
end;