Zugriff auf Objekt in TObjectList

[Ykcim]

Er springt nach else und gibt "Not assigned" aus...

Delphi-Quellcode:

for I := 0 to FListe_Button.Count -1 do begin
      ShowMessage(FListe_Button.Items[I].ClassName);
      if Assigned(FListe_Button.Items[I]) then
         ShowMessage(FListe_Button.Items[I].ClassName)
      else
         ShowMessage('Not assigned');
      if FListe_Button.Items[I] is TTMSFNCToolBarButton then
         ShowMessage('OK')
      else
         ShowMessage('Not OK');
   end;

Und wenn ich das assigned nicht abprüfe gibt er folgenden Error aus:

Zitat:

TypeError: Cannot read property '$classname' of null at Object.Labeling_GlowButtons