вложенный цикл FOR в вызываемой функции

[lifeton]

есть функция (проверяет на дубликат):
function TForm1.Dubl(md5:string): Boolean;
var
j:byte; f:boolean;
begin
Result:=false;
for j := 0 to 52 do
begin
if K[j].ID =md5 then
begin
Result:=true;
Break;
break;
end;
end;

Вызываю её в другой процедуре тоже в цикле FOR
for I := 0 to StrToInt(Edit1.Text)-1 do
if Dubl(md5Card(i+1)) then //md5Card - функция возвращающая строку

Смотрю отладчиком.
Например на шаге когда i=4
цикл в функции Dubl начинается с j=53 потом j=52, j=51, j=50, j=49
Т.е. он почему-то идет downto с 53 и только i+1 шаг, т.е. столько сколько указал в Dubl(md5Card(i+1))

Помогите

[krGorka]

В function TForm1.Dubl(md5:string): Boolean;
3 begin и 2 end. Как она может работать? И 2 Break подряд;

[lifeton]

krGorka, ну очевидно же опечатка. Вместо 2-го брейка - end. Подправил. Проблема не в этом )

вот для наглядности чуда:
http://i055.radikal.ru/1006/91/87081cb1972c.png

[Пепел Феникса]

это оптимизатор, оптимизировал он все верно, так что ищите ошибку в другом месте.

[lifeton]

В смысле всё верно?
а как же тогда пользоваться отладчиком?
почему цикл в вызываемой функции идет downto и только i+1 шаг
а не как положено с j=0 до j=52?

[lifeton]

Я понимаю что где-то ошибка, но где? в каком месте смотреть? ошибка в вызове или в самой функции... хде?

[notHaker]

Сообщение от lifeton

Я понимаю что где-то ошибка, но где? в каком месте смотреть? ошибка в вызове или в самой функции... хде?

А что за ошибка? Её вид... Я чёт так и не понял.