[[duilioisola]]

La solución creo que pasa por rellenarlo de '0' y luego borrarlo.

Código Delphi [-]
begin
   a := archivo;
   l := longitud;
   For i := 0 to l-1 do
      a[i] := #0;   
   DeleteFile(a);
end