Zugriff auf Objekt in TObjectList

[Ykcim]

Guten Morgen Zusammen,

vielen Dank für die Unterstützung. Leider klappt es noch immer nicht...
Ich habe jetzt Folgendes gemacht:

Delphi-Quellcode:

Type
   TDesign=class
      private
         FListe_Button: TObjectList;

Delphi-Quellcode:

constructor TDesign.Create;
begin
   FListe_Button:= TObjectList.Create;
end;

Delphi-Quellcode:

procedure TDesign.Design_LogIn;
begin
   FListe_Button.Add(Form_LogIn.btn_login_abbruch);
   FListe_Button.Add(Form_LogIn.btn_login_ok);
   Labeling_GlowButtons;
end;

Delphi-Quellcode:

procedure TDesign.Labeling_GlowButtons;
var
   I: integer;
   MyButton: TTMSFNCToolBarButton;
   Button_Text: string;
begin
   for I := 0 to FListe_Button.Count -1 do begin
      MyButton:=FListe_Button.Items[I] as TTMSFNCToolBarButton;
      Button_Text:=Data_Module.xDST_Sprache.FieldByName(MyButton.Name).AsString;
      MyButton.Text:=Button_Text;
   end;
end;

Ich bekomme leider nach wie vor die Fehlermeldung:

Zitat:

ERROR
Uncaught TypeError: Cannot read property 'FName' of null | TypeError: Cannot read property 'FName' of null at Object.Labeling_GlowButtons (http://localhost:8000/NedCom_Web/Ned...b.js:119380:52) at Object.Design_LogIn

Aus irgendeinem Grund kann er auf die Objekte in der TObjectList anscheinend nicht zugreifen. Ich habe aber mit
ShowMessage('Anzahl Buttons: '+IntToStr(FListe_Button.Count)); geprüft, dass 2 Objekte in der Liste enhalten sind und haben mit
ShowMessage(Data_Module.xDST_Sprache.FieldByName('btn_login_abbruch').AsString); geprüft, dass die Daten aus der DB auch vorhanden sind.

Ich weiß nicht, wo es hakt...

Gruß
Patrick