Das ButtonExists würde ich umschreiben oder das Button( Btn : Integer ).
Delphi-Quellcode:
function TClsProgBar.ButtonExists( Btn : Integer ) : Bool;
begin
Result := ( Btn >= 0 ) and ( Btn < FButtonList.Count );
end;
Die genaue Codierung hängt allerdings davon ab, ob du 0 basierend indizierst (so wie die Liste) oder 1 basierend.
Danke euch werde die Infos mal durchgehen und sehen ob ich dann auf einen nenner komme.
gruss