Var
  iList, xyCount, tmpLen: Integer;
  tmpfilenameOnly, tmpEntry, tmpFileExt, tmpFilenm, tmpValue, tmpFile: String;
  countList, tmpList: TStringList;
Const
  ctPointer = '<Point';
Begin
  psExitCode:= 0;
  psVIA:= 0;
  // ... add your code here
  tmpFile := psFilePath + psFileName;
  tmpFileExt := ExtractFileExt(tmpFile);
  tmpFilenm :=  ExtractFileName(tmpFile);
  tmpfilenameOnly := psStringReplace(psFileName, tmpFileExt,'');

  psLogWrite(1, '', 'Load Xml File: ' + tmpFile);
  tmpList := TStringList.Create;
  countList := TStringList.Create;
  Try
    Try     
      tmpList.LoadFromFile(tmpFile);   
      for iList := 0 To (tmpList.Count-1) do
      Begin
        tmpEntry := tmpList.Strings[iList];
        //psLogWrite(1, '', 'Processing Line : ' + IntToStr(iList) + '  ' + tmpEntry);
        xyCount := Pos(AnsiLowerCase(ctPointer), AnsiLowerCase(tmpEntry));
        //psLogWrite(1, '', 'XYCount: ' + IntToStr(xyCount));
        If (xyCount <> 0) Then
        Begin
          psVIA:= psVIA + 1;
          psLogWrite(1, '', 'XYcount: ' + IntToStr(psVIA));
          // Set Result
          psExitCode:= 1;
          // Break; // We will not break here, maybe there are more than one <Main> entries
        End;
      End;
    Except
      psLogwrite(1, '', 'Exception LoadFromFile: ' + tmpFile);
    End;
  Finally
    tmpList.Free;
  End;
End.