Naja, dann schreibst du für Dio eben 5 statt 9 da rein. Oder gleich Length('Dio">').
Zur Regex: Ich kann dir auf Delphi-Seite leider nicht helfen. Ohne zu testen hätte ich es mal so probiert:
Wichtig: Die Suche muss non-greedy sein. Sie liefert alle vorhanden <p>-Tags mit ID und Inhalt.
Liebe Grüße,
Valentin