Speichern in ein StringGrid mal anders

[Snickersbro]

P.S.: Ach ja .. ganz vergessen, hier mein Code den ich zum Laden nehme:

Code:

procedure TPlan.Einlesen;
var zeile : string;
    tf: TextFile; tag, i, j: Integer;
begin

//Tageszähler
  tag := 0;
   j := 0; //für Wochentagsspalte
  //Lade Daten für Tabellen
  if R911.Checked=true then
    assignfile(tf,'Zimmer\911.txt');
  if R914.Checked=true then
    assignfile(tf,'Zimmer\914.txt');
  if R511.Checked=true then
      assignfile(tf,'Zimmer\511.txt');
  if R512.Checked=true then
      assignfile(tf,'Zimmer\512.txt');
    reset(tf);
      while not EOF(tf) do begin
        readln(tf,zeile);

      //‹berpr¸fen, ob neuer Tag beginnt
        if zeile[1] = '#' then begin
          i := 1;
    j := j + 1;
          tag := tag + 1;
          delete(zeile,1,1);

      //wenn kein neuer Tag, dann Daten in StringGrid ¸bernehmen
     end else begin
        //Montag
          if tag = 1 then begin
                //Belegt oder frei
                  SGP.Cells[j,i] := zeile;
          end;
        //Dienstag
          if tag = 2 then begin
                //Belegt oder frei
                  SGP.Cells[j,i] := (zeile);
   end;
        //Mittwoch
          if tag = 3 then begin
                //Belegt oder frei
                  SGP.Cells[j,i] := (zeile);
   end;
        //Donnerstag
          if tag = 4 then begin
                //Belegt oder frei
                  SGP.Cells[j,i] := zeile;
   end;
        //Freitag
          if tag = 5 then begin
                //Belegt oder frei
                 SGP.Cells[j,i] := zeile;
   end;
                //Zeile erhˆhen
                  i := i + 1;
                  SGP.RowCount := i;
        end;
      end;
    closeFile(tf);

end;