title: regex for TDIPerlRegEx case sensitive match
body: <p>How to create regex for TDIPerlRegEx, to make case sensitive match? I tried (?i-) but still I found words which start with small characters.</p>
  
  <p>I want to create regex to find two words. <strong>First word must start with first char uppercase</strong> and the last two chars of the second word are 'th'. </p>
  
  <pre><code>TDIPerlRegEx.Create{$IFNDEF DI_No_RegEx_Component}(nil){$ENDIF};
    RegEx_Seek_1.MatchPattern := '(*UCP)(?m)(?i-)(?&lt;=\W)[A-Z]\w{2,12}\W\w{3,12}th(?=\W)';
  </code></pre>
  
  <p>The result which I obtain includes first character lower case.</p>
  
  <p>Example of text:
  First, sell me your birthright.
  The smell of your breath like apples.
  "<strong>Wisdom crieth</strong> without".
  Your earth as brass.
  And <strong>David cometh</strong> in.
  Wrath bringeth the punishments of the sword.</p>
  
  <p>Now the items to be matched are 'Wisdom crieth' and 'David cometh'.</p>