Selektierten String aus Listbox an Label übergeben?

[mlspider]

Beginnend mit 0.

OK, habe es sehr unsauber geregelt:

Delphi-Quellcode:

procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
 Label14.Caption:='Track '+InttoSTR(Listbox1.ItemIndex + 1);
end;

Hat jemand einen besseren Vorschlag?