anchor.diff:    end;
   end;
   
  +procedure TDocumentConverter.LogError(Msg: String);
  +begin
  +  Log('*******************************************');
  +  Log('Error: ' + Msg);
  +end;
  +
   procedure TDocumentConverter.SetInputFile(const Value: String);
   begin
     FInputFile := Value;
  
positive.code: constructor TDocumentConverter.Create;
  begin
    ConsoleLog := TConsoleLog.Create();
    FVersionString := '0.1';
  end;
  
  destructor TDocumentConverter.Destroy;
  
negative.code:   TConsoleLog = class
    public
      procedure Log(Sender: TObject; Log : String);
      procedure LogError(Log: String);
    end;
  
    TDocumentConverter = class
  