CentrED

  inherited Create;

  FFilename := AFilename;

  ReadXMLFile(xmlDoc, AFilename);

  if not ((xmlDoc.DocumentElement.NodeName = 'CEDConfig') and

    TryStrToInt(xmlDoc.DocumentElement.AttribStrings['Version'], version) and

    (version = CONFIGVERSION)) then

  Writeln('===================');

  Write  ('Port [2597]: ');

  Readln (stringValue);

  if not TryStrToInt(stringValue, intValue) then intValue := 2597;

  FPort := intValue;

  Writeln('');