Listbox v Delphi

V listboxu mám seznam jmen,
po označení potřebuji jméno uložit do stringu. Nějak ale nevím jak:

procedure TForm1.ListBox1Click(Sender: TObject);
var
VybraneJmeno : string ;

begin
VybraneJmeno:= ListBox1. ?????????????????;

end;