ControlCount

[Sugar]

Hallo Forum,

ich bin kurz vorm verzweifeln. Ich möchte alle Controls vom Typ TButton auf einer GroupBox mit Beschriftungen aus einer Tabelle versehen. Ich verwende folgenden Code um die GroupBox zu "durchlaufen", allerdings wird der TRY-Block auch durchlaufen wenn gar kein TButton betroffen ist.

GroupBox1.ControlCount gibt korrekterweise die richtige Anzahl Buttons auf der Box wieder (es sind nur TButton darauf),

for I := 0 to GroupBox1.ControlCount -1 do
begin
if GroupBox1.Controls[I] is TButton then
begin
try
btn := TButton(Controls[I]);
K := btn.Name;