index numarası

[Laz61]

Merhaba arkadaşlar
Aşağıdaki kod bazan çalışıyor, bazan da çalışmıyor. Yapmak istediğim şey, bir Timerle Listboxtaki ''Orhan, Ahmet, Veli'' isimlerinin index numaralarını bir labele atamak.
var
ind:integer;
begin
ind:=Tlistbox(sender).itemindex;
label1.caption:=inttostr(ind+1);

Tsk. ederim

[mkysoft]

kodda bir sorun görünmüyor, sadece hiç bir satir seçili değilse -1 değeri dönecektir. bu kodu çağıran olayla iligli bir sorun olmasın?

[Laz61]

Sorunu böyle çözdüm.

Edit1.Text:=IntToStr(ListBox1.ItemIndex);

İlgi, alaka için tşk. ederim.