Sleep 之delph版

program Project1;

uses
  SysUtils ;
begin
     Sleep(1000);
end.