Трудности с ListBox'ом, помогите пожалуйста...

[dplz]

Всем привет! Клевый форум! Много что-тут нашел. Очень все помогло! Я делаю щас клевую игрушку, которую буду показывать вместо экзамена в колледже, возник при её создании такой, вроде бы простой, а вроде бы и нет вопрос:
У меня на форме есть listbox1 и шесть button'ов. При нажатии на button1 на Listbox1 появляется имя человека и его ранг(их шесть как и кнопок). Каждый button, в зависимости от номера(первый - выводит на listbox1 имя и первый ранг человека с этим именем, второй - второй ранг и т.д). На listbox стоит multiselect:=true, а как сделать так, что бы при выборе разных имен считывался общий ранг? Как проще все это организовать?, т.к у меня 12 раз по 6 кнопок с разными значениями рангов.

[S@fer]

откуда берутся данные?

[dplz]

Имена берутся рандомно при нажатии на баттон из массива, а ранги свои для каждого батона

[Манжосов Денис :)]

Складывать ранги...

[S@fer]

procedure TForm1.ListBox1Click(Sender: TObject);
begin
if Label1.Caption <>'' then
Label1.Caption:=IntTostr(StrToInt(Label1.Caption)+StrToInt(ListBox1.Items[ListBox1.itemIndex+1]))
else
Label1.Caption:=ListBox1.Items[ListBox1.ItemIndex+1];
end;

Складывает следующие строки после выделенных. Нужно еще сделать проверку является ли эта строка числом.

[Stilet]

а как сделать так, что бы при выборе разных имен считывался общий ранг?

При Мультиселекте:
В цикле по каждому Итему ЛистБокса проверять если ListBox1.Selected[i-тый] то брать из этого элемента, превращать в число и суммировать

[dplz]

А все! Спасибо!