How to terminate a process tree (Delphi)

Question

I\'m looking for a method to terminate a process and this is the current code that I have

function TerminateProcessByID(ProcessID: Cardinal): boolean;
var
  h