Problem mit Overflow

[Puhbaehr]

Muuuh hätt ich jetzt fast gesagt.

Habe den Try-Exception-Block erst um die gesamten Anweisungen gelegt. Nachdem das nicht funzte hab ich ihn direkt um die betreffende Stelle gesetzt.

Delphi-Quellcode:

var
  FileSize: dword;
  i : Byte;
...

{$Q+}  // Überlaufprüfung aktiviert
{$R+}  // Bereichsprüfung aktiviert

FileSize := GetFileSize (FileName, nil);

for i := 0 to 255 do
 begin
  try
    FileSize := FileSize + FileSize;
  except
    on EOverflow do    // Überlaufprüfung für Gleitkommazahlen
     begin
      SetLastError (E_FILESIZE_TO_LARGE);
     end;
    on EIntOverflow do    // Überlaufprüfung für Ganzzahlen
     begin
      SetLastError (E_FILESIZE_TO_LARGE);
     end;
    on ERangeError do    // Bereichsprüfung
     begin
      SetLastError (E_FILESIZE_TO_LARGE);
     end;
    else
      SetLastError (E_FILESIZE_TO_LARGE);
     end;
   end;

Irgendwas hab ich/ist falsch. Die Überlauf- und Bereichsprüfung ist aktiviert. Was fehlt mir?