Определить минимальное число(балл) из списка

[Paskal1]

Здравствуйте!
Такая у меня задачка:На форме стоит ListBox (с вкл multiselect) с индексами типа (12.32.565) каждый индекс отвечает своему баллу (макс балл 5).После того как юзер выбрал нужные индексы должен произойти расчет балла и вывести минимальный балл из того что в списке. (баллы у меня хранятся в тож в ListBox(скрытом) и связаны по индексу выбора типа
ListBox1 ListBox2
12.234.45 2
12.236.45 5
12.254.45 4
12.237.45 5
) ну короче каша и бред получается (
Побывал через функцию min но функция рассчитана только на 2 значения
У меня есть готовое решения но для каждого ListBox писать процедуру геморно и не профессионально.
бред короче получается.
Ребята подскажите плиз как функцию такую написать.

ну вот сам бред

//---------------------------------Расчет баллов 3
for icheks3 := 1 to CheckListBox3.Items.Count - 1 do
    if CheckListBox3.Checked[icheks3] then
      begin
    Config.Edit3.Text:=Config.Edit3.Text + '1' + (ListBox5.Items.Strings[icheks3])+ '; ';
    Config.ListBox93.Items.Add(Config.ListBox119.Items.Strings[icheks3]);
   // Label37.Caption:=Config.ListBox55.Items.Strings[icheks3];
    Form3.Repaint;
       end;
    for sch3 := 1 to Config.ListBox93.Count -1 do
    begin
    config.memo5.Lines.Add(Config.ListBox93.Items.Strings[sch3]);
    end;
    vsdf3:=5;
    Config.Memo5.Lines.Add(Config.ListBox93.Items.Strings[0]);
    for scs3 := 0 to Config.Memo5.Lines.Count -1 do
           begin
               vsdf3 := min(StrToInt(Config.Memo5.Lines.Strings[scs3]), vsdf3);
           end;
     StaticText52.Caption:=IntToStr(vsdf3);

[BDA]

Примерно так:

min := '6';
for i := 0 to listbox1.Items.Count - 1 do
  if ListBox1.Selected[i] and (ListBox2.Items.Strings[i] < min) then
    min := ListBox2.Items.Strings[i];
if min < '6' then
  caption := min;