TObjectList sehr anfällig?

[EWeiss]

Nur für die Leute die meinen ich brauche das oButton.Num nicht.

Delphi-Quellcode:

    WM_RBUTTONDOWN:
    begin
      case LoWord(wP) of
        // Button steuerung
        ID_BTN_BUTTON_FIRST..ID_BTN_BUTTON_LAST:
        begin
          oButton := goProgBar.Button(wp-ID_BTN_BUTTON_FIRST);

          If not Assigned(oButton) then
          begin
            Result := 0;
            Exit;
          end;

          if frmKeysHandle = 0 then
            frmKeysCreate(frmButtonHandle);

          EnableWindow(frmButtonHandle, False);

          edKeys.SetWindowText(edKeys.Handle, PWideChar(oButton.ButtonKey));
          edTooltips.SetWindowText(edTooltips.Handle, PWideChar(oButton.ToolTip));
          edCommand.SetWindowText(edCommand.Handle, PWideChar(oButton.ButtonCmd));
          SKAERO_SetCTLText(lblKeyCaption.Handle, 'Knopf' + IntToStr(oButton.Num));
        end;
      end;
    end;

Was macht es für einen sinn den Index des Button aus der Objectlist zu verwenden.
Aber ist ja alles redundant

gruss