Listboxのonclickイベントをダブルクリックして
以下のprocedureを呼び出す。

procedure TForm1.ListBox1Click(Sender: TObject);
begin
        edit1.text := listbox1.items[listbox1.itemindex];
end;