[ecfisa]

Hola novato_erik.

No es necesario crear una clase, probá este ejemplo:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  // cargar el combo
  qECivil.Open;
  while not qECivil.Eof do
  begin
    ComboBox1.AddItem(qECivil.FieldByName('DESCRIPCION').AsString,
      TObject(qECivil.FieldByName('ID_ECIVIL').AsInteger));
    qECivil.Next;
  end;
end;

procedure TForm1.ComboBox1Click(Sender: TObject);
var
  id: Integer;
begin
  id := Integer(ComboBox1.Items.Objects[ComboBox1.ItemIndex]); // Obtener el ID
  ShowMessage(IntToStr(id));
end;

Saludos.