Aber wenn es dich so krass stört, die Ergebnisvariable als Schleifenvariable zu verwenden, dann bitte...
Delphi-Quellcode:
function AssertArray(AArray: TArray<Boolean>): Boolean;
var
Current: Boolean;
begin
for Current in AArray do
begin
if not Current then
begin
Exit(False);
end;
end;
Result := True;
end;