TSelectIDNAME = class(TObject)
  public
  nID: integer;
  sID: string;
  sNAME: string;
  Constructor Create(Id_INT: integer; ID_STR,NAME: string); overload;
end;   

constructor TSelectIDNAME.Create(Id_INT: integer; Id_STR, NAME: string);
begin
  inherited Create;
  nID := Id_INT;
  sID := Id_STR;
  sName := NAME;
end;

   oCbb.Items.Clear;
   oCbb.Clear;  
................
        Q_TMP.First;
        while not Q_TMP.Eof do
        begin
        oCbb.AddItem(Q_TMP.FieldByName('NAME').AsString,
                        TSelectIDNAME.Create(Q_TMP.FieldByName('SEL_ID_INT').AsInteger,
                        Q_TMP.FieldByName('SEL_ID_CHAR').AsString,
                        Q_TMP.FieldByName('NAME').AsString));

        Q_TMP.Next;
        end;
 ..............

     ......
     lnFound := pnlFirmsDoc.ControlCount;
     pnlFirmsDoc.InsertControl(TDocumentsList.Create(pnlFirmsDoc), lnFound);
     ......