Вывод данных в ListBox

procedure TForm7.ComboBox1Change(Sender: TObject);
begin
   ListBox1.Clear;
  DataModule3.ADOQuery5.SQL.Clear ;
  DataModule3.ADOQuery5.SQL.Text:='Select Result.Obshie from Result';
  DataModule3.ADOQuery5.open;
  while (not DataModule3.ADOQuery5.Eof)  do
   begin
     ListBox1.Items.Add(DataModule3.ADOQuery5.Fields[0].AsString);
     DataModule3.ADOQuery5.Next;
   end;
end;

procedure TForm7.ComboBox1DropDown(Sender: TObject);
begin
 DataModule3.ADOQuery4.SQL.Clear ;
 DataModule3.ADOQuery4.SQL.Text:='Select Gruppa.Name_gruppa, Gruppa.Id_gruppa from Gruppa';
 DataModule3.ADOQuery4.open;
 ComboBox1.Items.Clear;
 DataModule3.ADOQuery4.First;
  while (not DataModule3.ADOQuery4.Eof)  do
   begin
     ComboBox1.Items.AddObject(DataModule3.ADOQuery4.Fields[0].AsString,TObject(DataModule3.ADOQuery4.Fields[1].AsInteger));
      DataModule3.ADOQuery4.Next;
   end;
end;

DataModule3.ADOQuery5.SQL.Text:='Select Result.Obshie from Result where Result.Id_gruppa ='+IntToStr(Integer(Combobox1.Items.Objects[Combobox1.ItemIndex]));