[fpc-pascal] Range checks

[C Western]

The following innocuous looking code generates a range check error:

{$R+}
function Count: qword;
begin
   Result := 0;
end;
var
   i: Integer;
begin
   for i := 0 to Count-1 do
     WriteLn(i);
end.

I can (more or less) see why, but it means that I can't (for example) 
compile the Cocoa widget set in 64 bit with bounds checking on, as then 
qword seems to be used as a count for, for example, NSarray.

Am I missing something?

Colin