Espero que te des cuenta de que, tanto aquí:
Código Delphi
[-]
DeleteFile(APath+'\*.ctt'+MySearch.Name);
como aquí:
Código Delphi
[-]
DeleteFile(MyString2+'\Keys\*.ctt'+MySearch.Name);
estas haciendo algo muy diferente a lo que muestras en tu ultimo mensaje:
Código Delphi
[-]
DeleteFile(APath+'\'+MySearch.Name);
Si el ultimo funciona, la cosa va a ser que en los otros sobra el '*.ctt'
