RosettaCodeData/Task/Loops-Infinite/Delphi/loops-infinite.delphi

while True do Writeln('SPAM');