For-Schleifen-Problem

[Tommy1988]

Delphi-Quellcode:

Btn, item: TButton;
i, x: Integer;

Folgender Code funktioniert einwandfrei..

Delphi-Quellcode:

    for i:= 1 to 46 do
    begin
      Btn := TButton(Form1.FindComponent('TBXButton'+IntToStr(i)));
      if Btn <> NIL then Btn.Enabled:= True;
    end;

Der folgende jedoch unter der Meldung, dass TButton und TTBXItem inkompatibel sind, nicht.

Delphi-Quellcode:

    for x:= 1 to 5 do
    begin
      item := TTBXItem(Form1.FindComponent('TBXItem'+IntToStr(x)));
      if item <> NIL then item.Enabled:= True;
    end;

Was ist da falsch