Lazarus - Criando uma classe para monitorar processamentos pessados