Was hat das damit zu tun? Es geht doch um das Array, in das zu immer wieder das selbe schreibst...
Statt deiner beiden Schleifen reicht es doch, wenn du in die letzte Zeile schreibst...
Delphi-Quellcode:
for s := 0 to Spaltenanzahl - 2 do
StringArray[s, Zeilenanzahl - 1] := ZwSpeicher.Strings[s + 2];