delphi 命令行程序循环执行

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses

  System.SysUtils;

begin

  try

while true do 

//代码

sleep(100);

  except

    on E: Exception do

      Writeln(E.ClassName, ': ', E.Message);

  end;

end.