TThread class

No sé si clasificarlo como frikichorrada o utilidad. Aquí, fruto del aburrimiento entre clase y clase, un ejemplo de como estresar for the lulz nuestro procesador. Puede llegar a ser práctico si compramos uno nuevo ;) Personalmente, me pone los pelos de punta ver  todos los núcleos a toda caña, pero oiga, mientras se mantenga la temperatura, ahí no está pasando nada más que el pan de cada día!

type
  Hilo = class(TThread)
  protected
    procedure Execute; override;
end;

procedure Hilo.Execute;
asm
  @Useless:
       add eax, 0
       jmp @Useless
end;

[...]
begin
  for a := Xi to Xf do
    with Hilo.Create(False) do
      Resume;
[...]

*En este ejemplo tonto los hilos son creados dinámicamente sin posibilidad de recuperarlos*

A que es mierder bonico?

Salu2.