string überprüfen

[DF.A]

Hallo ich möchhte überprüfen ob eine bestimmte Zeichenreihenfolge in einem String vorhanden ist. Ich lese Zeilen einzelnd aus ner Datei aus und überprüfe dann ob bestimmte Zeichen in dieser Reihe vorhanden sind.
Also ich mach das folgendermaßen:

Delphi-Quellcode:

if (pos('17', copy(s,0,40)) = 0) then begin
          ShowMessage('17 kommt nicht in dieser Zeile oder an der Vorgegebenen Position vor');
          EXIT;
        end;

Eigentlich müsste ja bei einer Zeile in der eine 17 am Anfang steht ShowMessage nicht ausgeführt werden, wird Sie aber trotzdem. Allerdings nur in dieser Zeile. Ich schreib die auch mal kurz hierhin:
Diese Zeile ist das Problem: 1722.1 Mustermann

Hier wird die 17 nicht erkannt. Hat jemand ne Ahnung wodran das liegt?

MfG