PosEx gibt immer 0 ( Null ) zurück

[TheMiller]

Hallo Delphi-Freunde!

Ich möchte einen Text aus einem RichEdit auf das Vorkommen bestimmter Worte durchsuchen und diese dann rot markieren. Letzteres funktioniert.

Ich arbeite mit PosEx (das erste Mal), nachdem ich erkennen musste, dass mein geliebtes Pos immer nur das erste Vorkommen findet.

Doch PosEx gibt immer nur 0 zurück, obwohl ich den Code aus diesem Forum habe. Hier mal mein Code:

Delphi-Quellcode:

i:=0;
        while PosEx('mit', 'mit mama und mit papa fahre ich mit', i) > 0 do
        begin
          ShowMessage('gefunden');
          with (re) do
          begin
            SelStart:=i;
            SelLength:=Length('mit');
            SelAttributes.Color:=clRed;
            SelLength:=0;
          end;
          i:=PosEx('mit', 'mit mama und mit papa fahre ich mit', i)+1;
        end;

Was ist daran denn falsch? Noch nichteinmal kommen die ShowMessages...

Danke im Voraus