Negativ, Dein Zähler wird nur um eins erhöht, wenn das Element das richtige ist:
Delphi-Quellcode:
if Gefunden then begin
NichtGefunden := false;
MachWasDraus;
i := i + 1; // <-- hier, nur im if gefunden then... block
end;
Will heissen: wenn nicht zufällig das erste Element schon das gesuchte ist bleibt er für immer darauf stehen.