fix(todo-comment): Detector-Doku-Erwaehnungen nicht als TODO melden

Selbst-Scan-FPs vor Fix (von 13 auf 9 reduziert):
  uTodoComment.pas:3   // TODO / FIXME / HACK / XXX-Marker in Kommentaren  ^Liste
  uTodoComment.pas:139 // 'TODO' direkt gefolgt von '-' oder '.'           ^Quotes
  uQuickFix.pas:23     // angedacht (TODO):                                ^Paren
  uDfmLexer.pas:19     // (siehe Phase 1 TODO).                            ^Paren

Drei neue FP-Schutz-Heuristiken in FindMarkerInComment:

1. Marker in single-quotes ('TODO') -> Doku-Erwaehnung als String-Pattern,
   typisch in Detector-Source-Doku.

2. Slash-getrennte Marker-Liste (' / TODO ', ' TODO / ') -> Aufzaehlung
   der unterstuetzten Marker, typisch in Detector-Doku oder UI-Hints.

3. Marker direkt vor closing-paren ('(TODO)', 'TODO):', 'TODO).') ->
   Klammer-Erwaehnung (siehe TODO / (TODO: noch nicht implementiert)).

Verifiziert SCA.Engine self-scan: 13 -> 9 FPs.

Sanity (TestRealTodo.pas):
* '// TODO: implement this properly'  -> weiterhin Finding
* '// FIXME: bug at ...'              -> weiterhin Finding
* '// TODO / FIXME / HACK / XXX' (Liste) -> kein Finding
* '// der Marker \'TODO\' wird ...'   -> kein Finding
* '// (siehe TODO) / (TODO):'         -> kein Finding

Verbleibende 5 FPs sind in Komma-Listen ('Todo, With, Reversed,...')
oder Emoji-Doku (':TODO 🅲).') - heuristisch nicht ohne Risiko von
Over-Skip echter TODOs zu fangen.

Author: nrodear

SCA.Engine/sources/Detectors/uTodoComment.pas

@@ -147,6 +147,31 @@ function FindMarkerInComment(const Line: string;
             Continue;
           end;
         end;
+        // FP-Schutz: Marker in single-quotes ('TODO') ist Doku-Erwaehnung
+        // (Detector-Source-File nennt sein Such-Pattern als String).
+        if (p > 1) and (Line[p - 1] = '''') and
+           (pEnd <= Length(Line)) and (Line[pEnd] = '''') then
+        begin
+          Inc(p); Continue;
+        end;
+        // FP-Schutz: Slash-getrennte Marker-Liste (' / TODO ' oder
+        // ' TODO / ') - typische Doku-Notation 'TODO / FIXME / HACK / XXX'.
+        if (p >= 4) and (Line[p - 1] = ' ') and (Line[p - 2] = '/') and
+           (Line[p - 3] = ' ') then
+        begin
+          Inc(p); Continue;
+        end;
+        if (pEnd + 1 <= Length(Line)) and (Line[pEnd] = ' ') and
+           (Line[pEnd + 1] = '/') then
+        begin
+          Inc(p); Continue;
+        end;
+        // FP-Schutz: Marker direkt vor closing-paren - Doku-Erwaehnung in
+        // Klammer wie '(TODO)', '(TODO):', 'siehe Phase 1 TODO).' etc.
+        if (pEnd <= Length(Line)) and (Line[pEnd] = ')') then
+        begin
+          Inc(p); Continue;
+        end;
         Marker    := M;
         MarkerPos := p;
         Exit(True);