получить полный путь от PID с помощью delphi

Мне нужно получить полный путь из PID.

Я проверил этот вопрос C ++ Windows - Как получить путь к процессу из его PID и я написал следующий код:

 function GetFullPathFromPID(PID: DWORD): string;
 var
    hProcess: THandle;
    ModName : Array[0..MAX_PATH + 1] of Char;
 begin
   Result:='';
    hProcess := OpenProcess(PROCESS_ALL_ACCESS,False, PID);
    try
      if hProcess <> 0 then
       if GetModuleFileName(hProcess, ModName, Sizeof(ModName))<>0 then
         Result:=ModName
        else
         ShowMessage(SysErrorMessage(GetLastError));
    finally
     CloseHandle(hProcess);
    end;
 end;

, но всегда возвращаю это сообщение:

указанный модуль не может быть найден

Как я могу получить полный путь из PID?