Hrm..
Scheint, als hättest Du da was nicht ganz 100% optimiert
Also wenn man das richtig macht sieht das so aus:
Delphi-Quellcode:
while not gefunden do
Suche;
Machwas;
Delphi-Quellcode:
for i := 0 to Count - 1 do
begin
Suche;
if gefunden then
break;
end;
Machwas;
Und was ist nun besser?