при подсчете хеш-суммы ошибка Integer Overflow. как обойти?

[Человек_Борща]

Привет всем!
Возникла проблема.. при подсчете md5 файла выскакивает ошибка об integer overflow.

Код выполнения вот:
Модуль n формы

  begin
    repeat Application.ProcessMessages;
      if (SearchRec.Attr and faDirectory) <> faDirectory then
      begin
        if StartDir + SearchRec.Name <> StartDir then
        begin
          case FilesListGenForm.HashGr.ItemIndex of
            0: Buff := StartDir + SearchRec.Name + ':' + UpperCase(MD5Print(MD5File(StartDir + SearchRec.Name))); //считаем MD5 файла
            1: Buff := StartDir + SearchRec.Name + ':' + FileCRC(StartDir + SearchRec.Name);
          end;

Ошибка выскакивает сдесь:
Мродуль MD5:

procedure FF(var a: DWORD; b, c, d, x: DWORD; s: BYTE; ac: DWORD);
begin
        inc(a, F(b, c, d) + x + ac); //ошибка сдесь
        rot(a, s);
        inc(a, b);
end;

как решить? ранее такого не было. Как отследить откуда ноги растут?

[Rammsteinfanat]

Что ни кто ни чем не поможет??? Я тоже столкнулся с такой проблемой!

[veniside]

юзайте {$Q-}