zapis tekstowej bazy danych

cześć
chcę zapisać wcześniej otwartą bazę danych (tekstową) do pliku
otwieranie wygląda tak, teraz potrzeba to jeszcze zapisać...

var
  Rec, Baza: TStringList;
  i: Integer;

begin
  Baza := TStringList.Create;
  Rec := TStringList.Create;
  opendialog1.Execute;
  Baza.LoadFromFile(opendialog1.FileName);

  for i := 0 to Baza.Count -1 do begin
    Explode(Baza.Strings[i], '|', Rec);


     Stringgrid1.Cells[0,i+1]:=rec[0];
     Stringgrid1.Cells[1,i+1]:=rec[1];
     Stringgrid1.Cells[2,i+1]:=rec[2];
  end;

najlepiej jak by zapisać wartości komórek stringgrida do pliku i oddzielić je znakiem "|"
...pomożecie?

Naskrobałem na szybko kod, beż sprawdzania w kompilatorze. Idea wygląda mniej więcej tak.
Dorób sobie funkcje, która będzie wyrównywała spacjami długości stringu, wtedy lepiej będzie wyglądło.

var 
 F      :TextFile;
 w, k :Word;

AssignFile(F, 'BAZA.TXT');
Rewrite(F);

for w := 1 to StringGrid.RowCount-1 do
  begin
   for k := 1 to StringGrid.ColCount-1 do Write(F, StringGrid.Cells[k, w]+'|');
   WriteLn(F, ''); // robimy Entera
  end;
   
Close(F);