Hm, dass es nicht geht wundert micht. Wenn ich genau die Codes aus meinem ersten und den Text aus deinem ersten Post nehme, dann klappt es bei mir (siehe angehängtem Screenshot). Ich habe die Prozedur ein bisschen verändert, damit auch die "//////" eingetragen werden:
Delphi-Quellcode:
procedure WriteToStringGrid(Lines: TStrings; SG: TStringGrid);
var
i, c: Integer;
s: String;
begin
c := 0;
for i := 0 to Lines.Count-1 do
begin
SG.RowCount := SG.RowCount+1;
s := Lines[i];
if (s[1] = AnsiUpperCase(s[1])) or (s[1] = '/') then //großgeschrieben
begin
SG.Cells[0, c] := s;
Inc(c);
end else //kleingeschrieben
SG.Cells[1, i-c] := s;
end;
end;