Delphi Listbox pobranie nazwy

witam mam problem, potrzebuje pobrac nazwe zaznaczonego elementu z listboxa a nastepnie zapisanie jej do zmiennej lecz nie wiem jak to zrobic,

procedure TForm1.Button5Click(Sender: TObject);
var
 i: integer;
 val: string;
begin
for i := ListBox1.Items.Count - 1 downto 0 do
if ListBox1.Selected[i] then
//val:=ListBox.
ShowMessage(val);
Killtask('project1.exe');
ListBox1.Items.Delete(i);
Listbox1.Selected[0]:= True;

ten kod pobiera ktory to jest item z kolei a nie o to chodzi, potrzebuje nazwe.

Var JakasTamNazwa: String;
Begin
 JakasTamNazwa := ListBox1.Items[ListBox1.ItemIndex];
 ListBox1.Items[ListBox1.ItemIndex] := JakasTamNazwa;
End;

Oczywiście wypadałoby zrobić to idioto-odporne (sprawdzanie, czy ItemIndex >= 0).