[WPascal]

Empezado por Ñuño Martínez

Lo de los enlaces no lo sé, la verdad, siempre ha sido muy confuso para mi, pero tengo que decirte que hay un error gordísimo en tu código, ¡y es que no destruyes los TStringList! Recuerda que Pascal no tiene colector de basuras, así que cada vez que ejecutes ese método te quitará un poco de memoria que nunca recuperarás hasta que no cierres el programa.

Hola,gracias por la respuesta, ya incluí la liberacion del los dos stringlist, pero aun no me funciona quedaría:

.
.
.

Código Delphi [-]
try
  for i:=0 to a.InstanceSize-1 do
  begin
    x:=Unidad+':\'+a[i];
    SetFileAttributes (PChar(x), FILE_ATTRIBUTE_NORMAL)
  end;
  for i:=0 to b.Count-1 do
  begin
    deleteFile(PChar(Unidad+':\'+b.strings[i]));
  end;
  except
    ShowMessage('listo!');
  end;
  a.Free; b.Free;   //Aqui libero los SL
end;
end.