Do jeito que você quer não vai funcionar. Mas pode fazer:
TempoInicial := Now; while (MilliSecondsBetween(Now, TempoInicial) < TempoEspera) and not SairLaco do Sleep(1); Não é preciso como a Função Sleep mas funciona bem. Roberto escreveu: > > > Como posso fazer para eventualmente interromper esta instrução > > sleep(Duracao); > > Pois a duração pode ter sido fornecida muito grande e o form não aceita > comandos enquanto ela durar. > > Como posso por exemplo colocar um botão de (encerrar o sleep) ou > condicionar? > > Obrigado > > Roberto(RJ),_._,___ > > [As partes desta mensagem que não continham texto foram removidas] > >