Conocer Registro de un Combobox

[ecfisa]

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