"Pos" findet String wegen Einrückung nicht

[Whookie]

Da ist eindeutig ein TStringList.Create/.Free zuviel drin!

So müsste das aussehen (nicht getestet):

Delphi-Quellcode:

begin
  Result := -1;
  sList := TStringList.Create;
  try
    LTst := LowerCase(Trim(SearchText));
    for i := 0 to sList.Count-1 do
    begin
      if Pos(LTst, LowerCase(sList[i])) > 0 then
      begin
        Result := i;
        Break;
      end;
    end;
  finally
    sList.Free;
  end;
  //
  If Result < 0 then
    ShowMessage('Einstiegspunkt wurde nicht gefunden.'); 
end;