[Rjkzy]

убери RemoveDir(ExtractFileDir(sDir));