Listbox Items anklicken und eine Aktion starten

[mkinzler]

Delphi-Quellcode:

procedure TForm1.listBox1Click(Sender: TObject);
begin
    Caption := (Sender as TListBox).Items[(Sender as TListBox).ItemIndex]; //Gibt Text als Fenstertext aus
end;
...
ListBox1.onClick := Listbox1Click;

oder halt durch Doppelklick beim Ereignis im OI

[Edit: TForm als Klasse war suboptimal]