ماهي طريقة اخذ اسم الIteme المحدد في ListBox ووضعه في Edit

[M_Mori2010]

السلام عليكم ورحمة الله وبركاته..

ماهي طريقة اخذ اسم الIteme المحدد في ListBox ووضعه في Edit

وشكرا لكم

[S.FATEH]

السلام عليكم

كود :

procedure TForm1.Button1Click(Sender: TObject); begin if ListBox1.ItemIndex <> - 1 then Edit1.Text := ListBox1.Items[ListBox1.ItemIndex]; end;