Fehler: Unkontrollierter Übertrag von Daten in ein Array

[Ykcim]

Hallo Zusammen,

etwas amüsiert, hänge ich an einem Fehler in meiner Software fest und hoffe, dass mir jemand helfen kann. So etwas habe ich noch nicht erlebt...

In einer Function erstelle ich aus einem zweidimensionalen Array eine csv-Datei. Das klappt auch wunderbar und ist nicht die erste Function dieser Art in meiner Software.

Um zu ermitteln, wo die Datei gespeichert werden soll, wird der Pfad ermittelt, in dem die Software liegt - auch kein Problem. Witzigerweise wird aber genau in diesem Moment in die dirtte Spalte meines Arrays und immer in der Zeile "223" der Pfad abgelegt...

Ich habe zwei Screenshots mit angehängt, aus denen alles ersichtlich sein sollte...

Hier noch die ganze Function:

Delphi-Quellcode:

function SaveToCSVLiefer(var Cols: TCols; var Rows: TRows):Boolean;
var SD : TSaveDialog;
    I : Integer;
    CSV : TStrings;
    query, FileName : String;
    Pfad: string;
begin
  Pfad:=ExtractFilePath(Application.ExeName)+'Daten\';
  FileName:=Pfad+'Lieferupload.csv';
  //Stringliste erzeugen
  CSV := TStringList.Create;
  //Stringliste füllen
  For I := 0 To Length(Rows[0]) - 1 Do
    begin
          CSV.Add(Rows[0,I]+','+
      '"'+Rows[1,I]+'"'+','+
      '"'+Rows[2,I]+'"'+','+
          Rows[3,I]+','+
          Rows[4,I]+','+
      '"'+Rows[5,I]+'"'+','+
          Rows[6,I]+','+
          Rows[7,I]+','+
          Rows[8,I]+','+
          Rows[9,I]+','+
      '"'+Rows[10,I]+'"'+','+
          Rows[11,I]+','+
      '"'+Rows[12,I]+'"'+',');
    end;
  //CSV speichern
  CSV.SaveToFile(FileName);
  Result := True;
  CSV.Free;
end;

Hat jemand eine Idee?

Vielen Dank

Ykcim