Ahí me he equivocado... lo escribí directamente en el foro, sin probarlo en el IDE de Delphi.
Los TStringList no tienen la propiedad "Lines". Puedes acceder directamente a cada String de la lista mediante un índice.
Quedría así:
Código Delphi
[-]
PosMenos := Pos('-',SList[i]);