
var
  FileLog, FileInfo: String;

procedure WriteLog(Message: String; aParam: boolean = FALSE);
begin
  if FileLog <> '' then
    WriteLogFile(FileLog, Message);
end; {End WriteLog}

procedure WriteInfo(Message: String; aParam: boolean = FALSE);
begin
  WriteLogFile(FileInfo, Message);
  WriteLogFile(FileLog, Message);
end; {End WriteInfo}

begin
end.
