Speichern in ein StringGrid mal anders

[Snickersbro]

Hallo liebe Community!
Ich habe da ein kleines Problem bezüglich meinem StringGrid. Es soll so eine Art Kalender sein, wobei der Ausdruck Stundenplan schon besser passst..
Das einlesen aus einer Textfile klappt so wie ich es mir wünsche, doch wenn ich es speichern will, kann ich es dann nicht mehr laden..
Meine Textfile ist nach diesem Muster aufgebaut:
#Dienstag
frei
frei
belegt
belegt
belegt
belegt
frei
frei
belegt
belegt
#Mittwoch wobei nach jedem #Zeichen eine neue Spalte eingelesen wird. Jetzt ist mein Problem, dass ich nicht weiß wie ich das in diesem Format speichern kann.
Zur Zeit nutze ich diese Art von Code zum Speichern

Code:

procedure TPlan.BSClick(Sender: TObject);
var
  iRow: integer;
  sl: TStringList;
begin
  sl := TStringList.Create;
  for iRow := 0 to SGP.RowCount - 1 do
    sl.Add(SGP.Rows[iRow].CommaText);
  sl.SaveToFile('Zimmer\911.txt');
  sl.Free;
end;

Ich hoffe ihr versteht mein Problem und könnt mir helfen