@ Daniel : danke, das war's
Code:
e := 0;
ShowMessage(IntToStr(NumBtn)); // <-------- korrekt
for i := 3 to NumBtn do
begin
if Auto_Start[i] then
begin
Inc(e, 1);
StartArray[e] := i;
end;
end;
ShowMessage(IntToStr(NumBtn)); // <-----------fehlerhaft
der Fehler lag in StartArray[e] --> Bereich
"Range Checking" war ausgeschaltet, dachte, das wäre aktiviert gewesen