关于选中listbox某项后获取该项对应的数据库中的各个数据显示到edit控件中

Question

如题，上图代码如下//单击刷新按钮对数据库进行刷新
procedure TForm2.Button1Click(Sender: TObject);
begin
with datam.DM.Qry1 do
begin
  Close;
  SQL.Clear;
  SQL.Add('select sceneID,scenename,SceneLocation, from gf_scene');
  Open;  listbox1.clear;
  while not Eof do
  begin
    listbox1.items.add(fields[0].asstring+' '+fields[2].asstring+' '+fields[1].asstring);
    Next;
  end;
end;end;
//刷新事件结束//单击listbox中项自动填写项所对应的在数据库中的某值到edit1.text中
procedure TForm2.ListBox1Click(Sender: TObject);
begin
edit1.Text:=listbox1.datam.DM.Qry1.Fields[0].AsString;
end;
请问TForm2.ListBox1Click如何实现所需要的功能呢？
比如
表GF_scene中有
 列 sceneID,scenename,SceneLocation,SceneDesigner
 值    001     天河       广州         AA
 值    002     海珠       广州         BB
 值    003     越秀区     广州         CC在点击listbox的第二项“002 广州 海珠”后，实现在下方edit控件edit1.text属性中添加数据库表GF_scene对应
“002 广州 海珠”的值，即“BB”

Answer 1

可以根据002去query里find得到BB，这要求query一直不关闭也可以把BB直接加到listbox里，query可以加完就关闭；然后修改listbox的ondrawitem，不要把BB显示出来，点击时，取最右列的内容BB

Answer 2

可以根据002去query里find得到BB这一点要如何实现呢？

Answer 3

if query.locate('sceneID','002') then
  edit1.text:=query.fieldbyname('SceneDesigner').asstring;