Delphi 无限循环语句

program InfiniteLoopWithDelay;

{$APPTYPE CONSOLE}

uses
  SysUtils, Windows;

begin
  while True do
  begin
    Writeln('执行某些操作...');
    Sleep(5000); // 延时 5 秒（5000 毫秒）
  end;
end.