Rankings

cria uma regra if len(cl.ncont)<9 return .f. endif

Sabes que estás a tentar resolver um problema que já foi resolvido à mais de uma década? Poderia abordar os dois pontos que referes aqui um de cada vez e mostra te que como poderias chegar a uma solução possível (ou impossível), mas acho que a melhor resposta que alguém te poderia dar será : usa uma framework que já exista, seja ela symfony, Laravel, Yii até mesmo CodeIgniter. Não é uma questão de "mandar para canto" , é a melhor coisa que deverias fazer, porque aqui ninguém inventa a roda, por na realidade, a roda dá trabalho a ser inventada

Esse comportamento ocorre porque a tarefa está a ser executada na mesma thread que o user interface. Isto faz com que algumas mensagens do windows fiquem na queue até haver 'uma aberta' para as processar. Como algumas dessas mensagens incluem a actualização dos valores mostrados no UI, acabas por não ter um refresh correcto. Podes testar a dica do @Rafael Adão, que para coisas simples costuma resolver. Idealmente, o teu processamento de ficheiros ficaria numa thread dedicada, deixando a principal para actualizar o UI, mas para coisas simples, se o ProcessMessages funcionar, podes não querer ir por aí...

Experimente colocar um 'Application.ProcessMessages;' ..... Frm_Shuffle_MP3.StrNovoNome.Caption:=Fich; {Aqui mostra o nome novo} Application.ProcessMessages; ....