Probieren geht über studieren
Spiel doch einfach mal ein bißchen mit TStrings/TStringList rum, um zu wissen was das macht und wie es geht. Folgendes Beispielsweise würde eine leere erste Spalte schreiben (nicht die eleganteste Methode, aber evtl. die mit den wenigsten Abweichungen):
Delphi-Quellcode:
// sCols.Free; streichen!
for i := 0 to Pred(sRows.Count) do begin
FormCSV.StringGridCSV.Rows[i].Delimiter := ';';
FormCSV.StringGridCSV.Rows[i].StrictDelimiter := true;
sCols.DelimitedText := sRows[i];
sCols.Insert(0, '');
FormCSV.StringGridCSV.Rows[i].DelimitedText := sCols.DelimitedText;
end;
sCols.Free; // stattdessen hier!
sRows.Free;