How to trim a TFilestream to zero length?

Currently I just delete the file and then re-create it but I guess there
must be some more standard way.

BTW, I would appreciate codes that work in different versions of Delphi.

Thanks
h...@sierrasys.com