I've go the code working - that is, I find "player".
Of course I had to make a few alteration, most just to get it to work in the test - nothing at all to the logic/flow ... the most significant in my mind was:
Top := Length(searcharray);
at the beginning.
If changing that doesn't work let me know, I'll send you the test project.