[makar3000]

Поясню, есть функция в которая не правильно работает в delphi 2010, хотя в delphi 7 все ок.

Код:

function test(types : PChar):string;
var
  i, j : integer;
  qwResult : UInt64;
begin
  for i:=0 to 2 do begin
    qwResult := 0;
    for j := 0 to 4 do begin
      qwResult := qwResult shl 8;
      qwResult := qwResult or ord(types[i + 5 + j]);
    end; 
      Showmessage(IntToStr(qwResult));
  end;
end;

В delphi 2010 значения (Не правильные):
1) 245755818546
2) 241326764623
3) 207000585522

В delphi 7 значения (Правильные):
1) 942682674
2) 808596037
3) 842155314

Помогите сделать так что бы в delphi 2010 работало стабильно. Изменить UInt64 на integer не вариант! Не будет работать следующая функция.