procedure TForm1.Button1Click(Sender: TObject);
var
  Lg: ILogWriter;
  i: Integer;
begin
  Lg := BuildLogWriter([TLoggerProFileAppender.Create(10, 5,
    TPath.Combine(ExtractFileDir(ParamStr(0)), 'LogDir'), [], '%s.%2.2d.log')]); // initialized to write different tags in one file
  Lg.Info('Test started V1.0!', 'Test'); // first tag 'Test'

  for i := 0 to 100 do
    Lg.Info('Test LoopCnt: %d!',[i],'Loop'); // second tag 'Loop'

  Sleep(2000);

end;