borrar archivos d un directorio\subdirectorios segun su extension. No me funciona :(

[roman]

Empezado por images

Este codigo no me funciona no me borra nada ¿por que?

¿Has hecho una traza de la ejecución para ver si realmente encuentra el archivo?

En

Código Delphi [-]
MiDir:='C\CamTexto\Server\';

faltan los ':' después de la 'C', y en

Código Delphi [-]
MisFicheros:='_*.lck';

¿qué no sobra el '_'?

// Saludos