Código Delphi [-]
procedure TPedidos.ADOQuery2AfterOpen(DataSet: TDataSet);
var i:integer;
begin
 ComboBox2.Clear;
 for i:=0 to ADOQuery2.RecordCount-1 do
  begin
    ComboBox2.Items.Add(ADOQuery2.FieldByName('servicio').AsString);
    ADOQuery2.Next;
  end;
end;

Código Delphi [-]
procedure TPedidos.ComboBox2Change(Sender: TObject);
begin
 ADOQuery2.Locate('servicio',ComboBox2.Text,[loPartialKey]);
 ADOQuery8.Close;
 ADOQuery8.SQL.Clear;
 ADOQuery8.SQL.Add('select * from servicios where servicio like '''+ComboBox2.Text+'%''');
 ADOQuery8.ExecSQL;
 ADOQuery8.Open;
end;

Código SQL [-]
function TFrmCancelRetiroLotes.Buscar_en_combo(Elemento: string): boolean;
var
i:integer;
encontrado:boolean;
begin
encontrado:=false;
 for i:=0 to combo.Items.Count-1 do
 begin
   if Elemento = combo.Items.Item[i].Caption then
   begin
       encontrado:=true;
       break;
   end;
 end;

 Result:=encontrado;

end;

Código SQL [-]
Encontrado:=buscar_en_Combo(TEdit.text);
if not Encontrado then 
begin
//aca el codigo para introducir el elemento eso ya lo tienes ......
end;

Código Delphi [-]
procedure TAnalisisCls.Lista1Click(Sender: TObject);

var
   index, i : integer;
begin
     index := Lista1.Items.Count;
     i := 0;
     while i < index do
     begin
         if (ListaPob1.Selected[i]) then
         begin
            Lista2.Items.Add(Lista1.Items.Strings[i]);
            Lista1.Items.Delete(i);
            index := index - 1;
            i := 0;
         end
         else i := i + 1;
     end;
  end;

procedure TAnalisisCls.Lista2Click(Sender: TObject);
   var
     index: integer;
   begin
     index := Lista2.ItemIndex;
     Lista1.Items.Add(Lista2.Items.Strings[index]);
     Lista2.Items.Delete(index);
     //InBtn.Enabled := true;
     //if Lista2.Items.Count = 0 then OutBtn.Enabled := false;
   end;

Código Delphi [-]
ComboBox2.Items.Add(ADOQuery2.FieldByName('servicio').AsString);

Código SQL [-]
SELECT DISTINCT nombre_servicio
FROM servicios

Código Delphi [-]
 
if ComboBox1.Items.IndexOf(Edit1.text) <> -1 then //IndexOf devuelve la posición en la que se encuentra el parámetro que se paso, y si no existe pues devuelve -1
begin
  //Introduces el codigo correspondiente...
end;

Código Delphi [-]
select distinct servicios.servicio from servicios

Código Delphi [-]


begin
   // hago la consulta ,  el clientdataset obtiene la informacion del query a traves de un datasetprovider
   adoquery1.Close;
   adoquery1.SQL.Text:='select c.sucursal, c.id, c.mov, c.movid, c.fechaemision ' +
                       ' , c.proveedor,prov.nombre , c.usuario,  c.referencia, ' +
                       ' c.importe, c.moneda, c.tipocambio, c.condicion,  c.autorizacion' +
                       ' from compra c ' +
                       ' join prov on prov.proveedor=c.proveedor ' +
                       ' where c.mov='      + quotedstr('ECN') +
                       ' and c.estatus='    + quotedstr('SINAFECTAR') +
                       ' order by c.sucursal,c.proveedor';
   adoquery1.Prepared:=true;
   adoquery1.Open;

   // ahora limpio el combobox, recorro el clientdataset y simplemente voy comprobando si el valor "usuario"
   // no esta en el combo lo agrego

   cbUsuario.clear;
   cbUsuario.Items.Add('TODOS');              // este sera el primer valor
   clientdataset1.First;
   while not clientdataset1.Eof do
   begin
       if cbUsuario.items.indexOf(clientdataset1.FieldByName('usuario').AsString)<=0 then
          cbUsuario.Items.Add(clientdataset1.fieldByName('usuario').asstring);
       clientdataset1.Next;
   end;
   cbUsuario.ItemIndex:=0;                          // para que  por default ponga  por defecto el primer valor
   cbUsuario.style:=csDropDownList;             //  para que el usuario no agregue mas valores al combo

end