[[cHackAll]]

Código Delphi [-]
 Thread(cHackAll, Last);
 cHackAll := -Abs(cHackAll);
 if cHackAll < 0 then
  cHackAll := cHackAll * cHackAll;