Exit code of child program

I'm using Delphi 1. With BP7 it was possible to retrieve the exit code
of child process using the DosExitCode function, ie,

Exec(ProgramName, CmdLine);
WriteLn('Child process exit code = ',DosExitCode);

I'm using WinExec with GetModuleUsage to execute a child program (DOS  
and Win3.1 program) and would like to retrieve the exit code. What is
the equivalent in Delphi?

Any help appreciated,

Michel

------
Spider Containers and Persistent Objects
http://www.cam.org/~mibra/spider/