How To Efficiently Search For The First Occurrence In Two Tstringlists In Delphi