Делфи 7 должно в листбоксе находить самую короткую строку из вторых строк из тех у кого первая строка длиннее 5 символов

begin
min:=0;
if ListBox1.Count>0 then
begin
for i:= 0 to ListBox1.Items.Count-1 do
begin
Element:= ListBox1.Items.Objects as TElement;
if length(Edit1.Text)>5 then
begin
if min>length(Edit2.Text) then
min:=length(Edit2.Text);
end;
end;
Edit3.Text:=IntToStr(min);
end
else
ShowMessage('Ýëåìåíòû íå ââåäåíû');
end;

но ответ пишет просто "0". Не понимаю почему.

Подскажите что не так, не искулючено что может быть тут просто тупая ошибка.