Update Unit1.sj

Update function CreateAndDeleteTextFile