Spaltenweise auf TStringList zugreifen

[aaaaaaaaaa_10]

Ich lade also die vorhandene StringList in eine neue?
 ZwischenSpeicher.LoadFromFile(VorhandeneDatei); Nun will ich ab Zeile 0 bis count-1 der vorhandenen Datei die Zeilen als spalten in die ZwischenSpeicher StringList speichern.

Delphi-Quellcode:

ZwSpeicher.Delimiter := #9;
         for i := 1 to Sek.Count-1 do
          ZwSpeicher.DelimitedText := Sek.Strings[i];

Nun noch in die neue Datei laden
ZwSpeicher.SaveToFile(TestDatei); Aber irgendwas scheint da nicht zu stimmen. Ich habe nur die erste Zeile als Spalte.Und mehr kommt da nicht