Zeilen in einem String zählen

[schöni]

Ich sehe hier eine Ungereimtheit:

In CountLines:

Delphi-Quellcode:

while P^ <> #0 do begin
      if P^ = #13 then begin
        Inc(Result);           //wenn true, dann INC(Zeilenzahl)
        if (P + 1)^ = #10 then
          Inc(P);              //wenn true, dann INC(StrPos)
      end else if P^ = #10 then
        Inc(Result);           //wenn true, dann INC(Zeilenzahl)
      Inc(P); //und hier dann ei 2. Mal INC(StrPos), wenn
              //if Zweig durchlaufen 
   end;

Oder hab ich hier einen Denkfehler?