Função que abre aplicativo externo e aguarda fechar

function Executa (Arquivo : String; Estado : Integer) : Integer;varPrograma : array [0..512] of char;CurDir : array [0..255] of char;WorkDir : String;StartupInfo : TStartupInfo;ProcessInfo : TProcessInformation;begin StrPCopy (Programa, Arquivo); GetDir (0, WorkDir); StrPCopy (CurDir, WorkDir); FillChar (StartupInfo, Sizeof (StartupInfo), #0); StartupInfo.cb := sizeof (StartupInfo); StartupInfo.dwFlags := STARTF_USESHOWWINDOW; StartupInfo.wShowWindow := Estado; if not CreateProcess (nil, Programa, nil, nil, false, CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil, nil, StartupInfo, ProcessInfo) then Result := -1 else begin WaitForSingleObject (ProcessInfo.hProcess, Infinite); GetExitCodeProcess (ProcessInfo.hProcess, Result); end;end;

Está dando o seguinte erro:

[Error] UnitInicial.pas(377): Types of actual and formal var parameters must be identical

informa que o erro está na linha

GetExitCodeProcess (ProcessInfo.hProcess, Result);

Alguém pode me ajudar?

Utilizando Delphi 7