Найти первым один из двух разделителей

[Shouldercannon]

Есть TStringList, есть два вида разделителя: --->--- и ---<---
Как узнать какой из двух разделителей в TStringList идёт первым?

I := SL.IndexOf('----->-----') or SL.IndexOf('-----<-----');

При таком раскладе
-----<-----
----->-----
Получаю позицию 1, ходя должно 0

[Аватар]

or зачем там? Нашел индексы одного и второго, сравнил который меньше. С учетом того, что разделитель не обязательно найден

[Shouldercannon]

  // Поиск сепаратора
  Ind1 := SL.IndexOf('----->-----');
  Ind2 := SL.IndexOf('-----<-----');
  if Ind1 < Ind2 then I := Ind1 else I := Ind2; // Установим позицию для парсинга
  if I = -1 then I := 0; // В STringList нет позиции -1

Частенько бывает 0 и выводится всё содержимое с нулевой позиции, а не с указанной позиции.
Попробую исправить

[Аватар]

С учетом того, что разделитель не обязательно найден

  Ind1 := SL.IndexOf('----->-----');
  Ind2 := SL.IndexOf('-----<-----');
  if (Ind1>=0) and (Ind1>=0) then begin
    if Ind1 < Ind2 then I := Ind1 else I := Ind2; 
  end
  else if Ind1>=0 then i:=Ind1
  else if Ind2>=0 then i:=Ind2
  else i:=0;