Ich denke, es bleibt nichts anderes übrig, als stures Zählen.
Delphi-Quellcode:
function AddBooleanValues(Values: array of boolean): integer;
var
i: integer;
begin
result := 0;
for i := 0 to high(Values) do
if Values[i] then inc(result);
end;
Es kann entweder ein Boolean-Array übergeben werden oder
sowas.