procedure TForm1.ListBox1Click(Sender: TObject); var i : integer; begin i:=ListBox1.ItemIndex; Edit1.Text:=ListBox1.Items.Strings[i]; end;