[[seoane]]

¿Que tal con un bucle?

Código Delphi [-]
program miprograma;
uses 
SysUtils;

//Inicia el programa
begin
  while TRUE do
  begin

  end;
end.

Aunque puede que necesitemos que la CPU respire:

Código Delphi [-]
program miprograma;
uses 
SysUtils;

//Inicia el programa
begin
  while TRUE do
  begin
    

    Sleep(10);
  end;
end.