strpos

[jbg]

In Delphi beginnen Pascal-Strings mit dem Index 1. Das heißt, dass das erste Zeichen bei Index 1 beginnt, und nicht wie in C/C++/PHP mit Index 0.

Es muss also so lauten:
Delete(comptext, 1, gefunden);