PROCEDURE pause(const ms:integer);
  VAR tstart,tende    :cardinal;
  BEGIN
    tstart:=GetTickCount64;
    tstart:=tstart+ms;
    REPEAT
      tende:=GetTickCount64;
      Application.ProcessMessages;
    UNTIL tende>tstart;
  END;