[prorokk]

Код:

function CheckSum(blockStrpos,blockEndPos:Integer):string;
VAR
  i: integer;
  sum: integer;
  Result2: string;
begin
  sum := 0;
  i:=0;
  for i := 0 to 884734 do  
  begin
        sum := sum +file[i]; // array of world
  end;
 Result2:=IntToHex(sum,8);
 Result:=Result2+'/'+inttostr(sum)+'/'+inttostr(Length(file)+' i '+inttostr(i);
end;

подскажите что не правильно делаю... не выдает нужного мне результата
хотя считает(вначале) вроде все верно...