private
    { Private declarations }
    a : integer; 

procedure TForm1.Timer1Timer(Sender: TObject);
var
  i: Integer;
begin
// a değişkenini bir bir arttırıyorz...
inc(a); 

{  for to do dögsünü kullanarak i olarak tanımladığımız integer değişkenini sıfır olarak tanımlayıp listbox daki item sayısı kadar
 döngüyü işlemesini söylüyoruz ..  }

 for i := 0 to ListBox1.Items.Count - 1 do  
   begin

{ a değişkeni listbox daki item sayısından fazla olduğunda program hata vereceği için koşullandırıyoruz durumu
a değişkeni listbox daki item sayısına eşitse... }
  
if a = ListBox1.Items.Count then  
    begin

{ a değişkenini 0 (sıfır) a eşitle }
    a:=0; 

{ label1. in caption değerine listbox da o an A değişkeninin aldığı sayıdaki listbox itemının text özelliğini göster }

    Label1.Caption := ListBox1.Items.Strings[a]
  end

{ yok a değişkenindeki değer listbox daki item sayısını geçmediyse... }
   
 else

{ label1. in caption değerine listbox da o an A değişkeninin aldığı sayıdaki listbox itemının text özelliğini göster }

    Label1.Caption := ListBox1.Items.Strings[a];
   end;