Save and load a TStringList to file with encryption and compression

Implement Function SaveString(Data : TStringList; Filename, Password : String; Compress : Boolean) : Integer; Which saves the given StringList data to the file (overwrites the file content if file exists), using encryption IF and ONLY IF password <> '' and compresses the data before encryption if Compress = True. The StringList Data only contains strings, no Objects. The encryption must be implemented using DEC version 5.2 (You can download it from: <[login to view URL]>) The compression algorithm can be anything, as long as it is 100% native. That is, no DLLs or any other third party files are required. The compression code can be in asm or Delphi and must be free to use in commercial, closed source software. For example, you can use SynZIP (<[login to view URL]>) Also implement Function LoadString(var Data : TStringList; Filename, Password : String) : Integer; Which reads data written to disk with SaveString. The LoadString function must automatically detect whether the data is compressed and decompress it if needed. If Password <> '', then the given password is used to decrypt the data. The read, (possibly) decompressed and decrypted data is returned via the Data parameter variable. The functions returns 0 if no error occurs, and an error code in a case of error. The functions must be compatible with Delphi 2010 and with unicode data.