¿Existe la función "Truncate" en Delphi?

[ISEKO]

Necesito ayuda para poder truncar un archivo mayor de 4Gbytes, pues truncate(f: file) de delphi, no lo permite.
seria de mucha ayuda resolver esto pues estoy en terminación de un sotf importante, por la ayuda podra constar en los agradecimientos del mismo.

por favor indicarme o suministrame algun codigo para solucionar el problema.

muchas gracias de antemano.