Schleife bringt verschiedene Ergebnisse

[ereetzer]

Hallo,

vorab: ich habe mit 2 Dateien kopiert um diese Funktion zu testen, hab jetzt
also 2 doppelte Dateien.

Mit unten stehendem Code bringt er mal gar kein Ergebnis, mal nur die 2. doppelte Datei
mal korrekt beide doppelte Dateien und mdann auch noch beim ersten Click die 2. Kopie und beim nochmaligem Click beide Kopien.

Woran liegts? Ich kann es nicht erkennen.

ps:
Die Funktion CompareFile ist hier aus dem Forum von negaH

Delphi-Quellcode:

procedure TForm1.Button18Click(Sender: TObject);
var
  i:  integer;
  FileName1, FileName2: string;
begin
  Gauge1.MaxValue := lvOrganisation.Items.Count - 1;

  for i := 0 to lvOrganisation.Items.Count - 1 do
  begin
    if i = lvOrganisation.Items.Count -1 then exit;

    FileName1 := lvOrganisation.Items[i].SubItems[0] +  lvOrganisation.Items[i].SubItems[1];
    FileName2 := lvOrganisation.Items[i+1].SubItems[0] +  lvOrganisation.Items[i+1].SubItems[1];
    if CompareFile(FileName1, FileName2) = True then ListBox1.Items.Add('doppelt?: ' + FileName1);

    Application.ProcessMessages;
    Gauge1.Progress := i;
  end;   // i
end;

Gruß

ereetzer