É um exemplo de comando de repetição em Delphi