Zugriff auf Objekt in TObjectList

[Ykcim]

Hallo Zusammen,

Ich möchte in einer Design-Klasse einige Buttons mit Text versehen. Diesen Text hole ich mir vorher aus der DB.
Ich möchte der Procedure eine TObjectList mitgeben, damit dann alle Buttons der Liste mit dem Caption versehen werden.

Durch googln habe ich folgende Procedure geschrieben:

Delphi-Quellcode:

procedure TDesign.Design_LogIn;
var
   BList: TObjectList;
begin
   BList:= TOBjectList.Create;
   Try
      BList.Add(Form_LogIn.btn_login_abbruch);
      BList.Add(Form_LogIn.btn_login_ok);
      Labeling_GlowButtons(BList);
   Finally
      BList:= nil;
   End;
end;

Die Procedure Labeling_GlowButtons sieht so aus:

Delphi-Quellcode:

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

Jetzt habe ich das Problem, dass ich zwar abfragen kann, ob auch 2 Objekte in der ButtonList sind, aber ich kann nicht darauf zugreifen.
Mach ich bei dem Aufruf (ButtonList.Items[I] as TTMSFNCToolBarButton).Text etwas falsch?

Ich bekomme immer die Nachricht:

Zitat:

Cannot read property 'FName' of null | TypeError: Cannot read property 'FName' of null at Object.Design_LogIn (http://localhost:8000/NedCom_Web/Ned....js:119472:116) at Create_frmLogIn

Vielen Dank
Patrick