Meti otros procedimientos gafos en CLUE.pas