Du kannst das aber auch mit einer while...do schleifen lösen - gänzlich ohne Break und Exit
Edit:
TStringList.IndexOf macht auch genau das was du willst, aber es ist wenn ich mich recht erinnere so ziemlich genauso umgesetzt wie du es jetzt hattest...
