Error on CompressLogFile

[fintechyazilim]

Hi,
If you give DailyRotateFileDateFormat and set the DailyRotate = True the function of CompressLogFile thows an exception.
Because GetLogFileBackup parameter is True therefor GetLogFileBackup function returns empty result. (There is no zip file yet in the directory)
zip.Open(GetLogFileBackup(1,True),zmWrite);

Can you please check this line of the code?

etc: i have changed the code like this.
zipfile := GetLogFileBackup(1, False);
if zipfile.IsEmpty then Exit else zipfile := zipfile + '.zip';
Zip.Open(zipfile, zmWrite);

Thank you.