min max listbox delphi

[SonicBob]

mn:=ListBox4.Items[0];
for i := 1 to ListBox4.Items.Count-1 do
if ListBox4.Items[i] < mn then
mn:=ListBox4.Items[i];
label15.Caption:=''+ mn;

mx:=ListBox4.Items[0];
for i := 1 to ListBox4.Items.Count-1 do
if ListBox4.Items[i] > mx then
mx:=ListBox4.Items[i];
label17.Caption:=''+mx;

написал такую штуку для поиска максимального и минимального значения в литбоксе
максимум ищет а минимум нет XD
в чем причину искать?
в листбоксе содержался числа по строкам в диапазоне от -много до +много

[Serge_Bliznykov]

ну Вы же сравниваете СТРОКИ!!!!
А Вам, как я понял из "листбоксе содержался числа по строкам "
нужно сравнивать ЧИСЛА!!

можно сделать примерно так:

var
   MaxX, MinX : double;
...

MinX := StrToFloat(ListBox4.Items[0]);
for i := 1 to ListBox4.Items.Count-1 do
   if StrToFloat(ListBox4.Items[i]) < MinX then
         MinX:=StrToFloat(ListBox4.Items[i]);
label15.Caption:=' min = ' + FloatToStr(MinX);