Wie wär's damit?
Delphi-Quellcode:
function sumArray(const Data: TDataArray; low, high: Integer): Cardinal;
var
i: Cardinal;
begin
Result := 0;
for i := low to high do
inc(Result, Data[i]);
end;
P.S.: Verdammt nochmal, wie schreibst du eigentlich Code?