butonclik query1.First; while not query1.Eof do begin COMBOBOX2.Items.Clear; combobox2.Items.Add(query1.fieldbyname(COMBOBOX1.Text).asstring); query1.Next;