DBLookupComboBox Og ADOQuery

with ADOQuery1 do
  begin
      close;
      SQL.Clear;
      SQL.Add('select childtypenr, name, quantity');
      SQL.Add('from machsparecomb, sparepart');
      SQL.Add('where machinenr = '200000');
      SQL.Add('and childtypenr = typenr');
      open;
      while not EOF do
      begin

      //Her skal den fylde i DBLookupComboBox hvordan gøres det??

      end;
  end;