Exe (new header) file size

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!