открывать и закрывать внешнюю программу из Delphi

в моем приложении (Delphi XE10) я хочу открыть файл (RTF) с помощью пользовательского редактора по умолчанию (MSword или OpenOffice или другого) и иметь возможность закрыть этот редактор из моего приложения. Я попытался использовать приведенный ниже код, но безуспешно при закрытии редактора.

procedure TForm1.Button1Click(Sender: TObject);
var hApp : Cardinal;
begin
    hApp := StartApp('open','temp.rtf','','',sw_normal);
    anotherForm.showmodal;
    KillProcess(hApp);
end;

куда:

function StartApp(apchOperation, apchFileName, apchParameters, apchDirectory: PChar;awrdShowCmd: Word): Cardinal;
var
    lseiInfo: TShellExecuteInfo;
begin
    Result := 0;
    FillChar(lseiInfo, SizeOf(lseiInfo), Chr(0));
    lseiInfo.cbSize := SizeOf(lseiInfo);
    lseiInfo.fMask := SEE_MASK_NOCLOSEPROCESS;
    lseiInfo.lpVerb := apchOperation;
    lseiInfo.lpFile := apchFileName;
    lseiInfo.lpParameters := apchParameters;
    lseiInfo.lpDirectory := apchDirectory;
    lseiInfo.nShow := awrdShowCmd;
    if Boolean(ShellExecuteEx(@lseiInfo)) then
    Result := lseiInfo.hProcess;
end;

procedure   KillProcess(hProcess: Cardinal);
Var
  ovExitCode: LongWord;
begin
    try
        if hProcess <> 0 then begin
            GetExitCodeProcess(hProcess, ovExitCode);
            if (ovExitCode = STILL_ACTIVE) or (ovExitCode <> WAIT_OBJECT_0) then
            TerminateProcess(hProcess, ovExitCode);
            CloseHandle(hProcess);
        end;
    except
    end;
end;

Редактор открывается, но когда он должен закрыться с помощью KillProcess, ovExitCode всегда равен нулю, поэтому TerminateProcess не выполняется. Я также пытаюсь выполнить TerminateProcess в любом случае, но редактор (в данном случае MSword) не закрывается.

Не могли бы вы мне помочь ? заранее спасибо