Write Log // strLog : the log content need write to log file; // strFile: the compliete file path(include the file name) of the log file. e.g. C:\log.log; procedure WriteLog(strLog, strFile: string); var fLog: TextFile; begin AssignFile(fLog, strFile…