Détecter l'item sélectionné d'un ListBox

Hello,

Ca peux paraitre con, mais ....... après 45 min de recherche dans :

La saisie semi automatique de delphi
Le F1
Google
La FAQ

J'ai pas trouvé...

Alors je fais appel à votre aide !

Merci

Code:

---

1 2 3

//obtenir la valeur de l'item sélectionné text := listBox1.Items[ listBox1.ItemIndex ];

---

Je trouve ceci mis de côté dans mes cartons :

procedure TForm1.FormActivate(Sender: TObject);
begin
ListBox1.Items.Add('A');
ListBox1.Items.Add('S');
ListBox1.Items.Add('B');
end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin
ShowMessage(IntToStr(Form1.ListBox1.ItemIndex));
end;

a++ 8O