İlk olarak ne işinize yarayacak ....
Yeni msn messenger da altta kişi listenizdeki kişilerin kişisel iletileri değişerek geçiyor onun gibi bişey yapmak için kullanabilirsiniz..


Forma ;
1 adet TListbox koyun
1 adet TLabel
1 adet Ttimer


private altında ilk olarak değişkenimizi tanımlıyoruz...

  private
    { Private declarations }
    a : integer;

timer ın OnTimer olayına aşağıdaki kodu yazıyoruz...

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;