EXE filesize

In creating a SFX archive, I need to retrieve the size of the file from
the Exe files header.  

Existing Delphi functions only return the actual size of the file.  

DOS file headers are different from the new header format.

Any help would be much appreciated!