procedure TSett.EnDecryptFile(pathin, pathout: string; Chave: Word);
var
 InMS, OutMS: TMemoryStream;
 cnt: Integer;
 C: byte;
begin
 InMS  := TMemoryStream.Create;
 OutMS := TMemoryStream.Create;
 try
   InMS.LoadFromFile(pathin);
   InMS.Position := 0;
   for cnt := 0 to InMS.Size - 1 DO
     begin
       InMS.Read(C, 1);
       C := (C xor not (ord(chave shr cnt)));
       OutMS.Write(C, 1);
     end;
   OutMS.SaveToFile(pathout);
 finally
   InMS.Free;
   OutMS.Free;
 end;
end;

var
 InMS, OutMS: PStream;
 cnt: Integer;
 C: byte;
begin
  InMS:=  NewReadFileStream(pathin);
 OutMS := NewMemorystream;
 try
   InMS.Position := 0;
   for cnt := 0 to InMS.Size - 1 DO
     begin
       InMS.Read(C, 1);
       C := (C xor not (ord(chave shr cnt)));
       OutMS.Write(C, 1);
     end;
  OutMS.SaveToFile(pathout,0,OutMS.Position);
 finally
   InMS.Free;
   OutMS.Free;
 end;