Limite 2GB file

Allora, si sono pazzo, mi piace distruggere...

Scopo del programma sarebbe aprire un file, riscrivere l'header e salvarlo con un altro nome, quindi eleiminare il file originale.

Non funziona con file più grandi di 2GB anche se compilato a 64. Qualcuno mi spiega perchè?

Questa è bella... qui nell'editor, si può decidere la formattazione del tipo di linguaggio... e Delphi/Pascal non c'è!!

procedure TForm1.Button1Click(Sender: TObject);


var
     FileToRead, FileToWrite : TFileStream;
     Value:array of byte;
    
	   Size :integer;


begin
	FileToRead := TFileStream.Create('originale.dat', fmOpenRead);
        Size:= FileToRead.Size;
        setlength (Value, Size);
        FileToWrite := TFileStream.Create('nuovo.dat', fmOpenWrite or fmCreate);

        FileToRead.ReadBuffer(Value[0],Size);

        FileToRead.Free;

        value[0] := cardinal('E');
        value[1] := cardinal('f');
        value[2] := cardinal('f');
        value[3] := cardinal('e');
        value[4] := cardinal('_');
        value[5] := cardinal('B');
        value[6] := cardinal('I');
        value[7] := cardinal('!');

    

        FileToWrite.WriteBuffer(Value[0],Size);

        FileToWrite.Free;

        deletefile ('originale.dat');
        label1.Caption :='ok';


end;

end.