DBLookupComboBox动态绑定不显示？

var
 query:TAdoQuery;
 ds:TDataSource;
begin
  query := TAdoQuery.Create(Self);
  query.Connection := ADOConnection1
  query.SQL.Add('select * from shopadmin where id <> 1');
  query.Open;
  ds := TDataSource.Create(Self);
  ds.DataSet := query;
  DBLookupComboBox1.ListSource := ds;
  DBLookupComboBox1.ListField := 'shopname';
  DBLookupComboBox1.KeyField := 'id';
end

这代码应该没错吧，为什么不显示数据？
[解决办法]
应该是过程执行完后query和ds被释放掉了