Var
  iList: Integer;
  tmpEntry, tmpFile: String;
  tmpList: TStringList;
Const
  ctRTCount = 'RT_COUNT';
Begin
  psVSA := '';
  psExitCode:= -2; 
  tmpFile := psFilePath + psFileName;
  psLogWrite(1, '', 'Searching for ' + ctRTCount + ' inside File: ' + tmpFile);  
  tmpList := TStringList.Create;
  Try
    Try
      tmpList.LoadFromFile(tmpFile);
      // Iterate
      For iList := 0 to (tmpList.Count - 1) Do
      Begin
        tmpEntry := AnsiUpperCase(tmpList.Strings[iList]);
        If pos(ctRTCount, tmpEntry) <> 0 Then
        Begin
          psExitCode := 1; // Filter found          
          psLogWrite(1, '', ctRTCount + ' found: ' + tmpEntry);             
          Break;
        End;
      End;
     Except
       psLogWrite(1, '', 'LoadFromFileError, ' + tmpFile);
     End;
  Finally
    tmpList.Free;
  End;  
End.