"Pos" findet String wegen Einrückung nicht

[Jasocul]

Ändere das bitte noch so:

Delphi-Quellcode:

var
   sList: TStringList;
   Index: integer;

begin
   sList := TStringList.Create;

     Result := -1;
     sList := TStringList.Create;
     sList.LoadFromFile(FileName);
//     for Index := 0 to sList.Count do Das ist auch falsch
     for Index := 0 to sList.Count-1 do
     begin
       if Pos(SearchText, sList.Strings[Index]) <> 0 then
       begin
         Result := Index;
         sList.Free;
         Break; // Nicht Exit!
       end
     end;

       ShowMessage('Einstiegspunkt wurde nicht gefunden.');
       sList.Free;
end;