Nummer der Datei um 1 erhöhen

[AnfängerDelphi]

Hallo Volker,

bis November werde ich nicht warten...
Ich habe leider nicht so viel Zeit,um mich jeden Tag mit programmieren zu beschäftigen.
Bei mir läuft es wirklich nur nebenher.

Das ist die komplette Prozedur.Soweit funktioniert es auch.
Ich kann dir aber nicht sagen,wo der Fehler lag.

Delphi-Quellcode:

procedure TForm1.Button5Click(Sender: TObject);
var
  pfad, ze, sp1, sp2, sp3 : String;
  excel : OleVariant;
  vListe, i : Smallint;

begin 

 pfad := Form1.JvDirectoryEdit1.Directory;

  try
    excel := CreateOleObject('Excel.Application');
   
     if FileExists(pfad + '\Datei1.xls') then
        begin
         excel.Workbooks.open(pfad + '\Datei1.xls');
         vListe := 1;

           for i := 0 to ListView1.Items.Count -1 do
              begin
               ze := ListView1.Items[i].Caption;
               sp1 := ListView1.Items[i].SubItems[0]
               sp2 := ListView1.Items[i].SubItems[1]
               sp3 := ListView1.Items[i].SubItems[2]
               inc(vListe);
               excel.Cells[vListe, 3] := sp1;
               excel.Cells[vListe, 4] := sp2;
               excel.Cells[vListe, 5] := sp3;
              end;

           excel.Visible:= true;
        end;

  finally
      excel := Unassigned;
  end;
 
end;

Aber trotzdem Danke für deine Hilfe.

Mfg

AnfängerDelphi