Hola.
Según creo haber entendido ya tenes cargado los campos "CODIGO" en tu ComboBox y deseas que cuando se realice una selección en él, aparezca el correspondiente campo "DESCRIPCION" en un Edit.
Si es así, podes hacer:
Código Delphi
[-]
procedure TForm1.ComboBox1Click(Sender: TObject);
begin
if ComboBox1.ItemIndex <> -1 then
begin
ADOConsulta.Close;
ADOConsulta.SQL.Text := 'SELECT DESCRIPCION FROM INVENTARIO WHERE CODIGO = :CODIGO';
ADOConsulta.Parameters.ParamByName('CODIGO').Value := ComboBox1.Items[ComboBox1.ItemIndex];
ADOConsulta.Open;
if ADOConsulta.FieldByName('DESCRIPCION').IsNull then
Edit1.Text := ''
else
Edit1.Text := ADOConsulta.FieldByName('DESCRIPCION').Value;
end;
end;
Saludos