The current one was not working, I deleted the thread in the Pub SVN since no one was replying. Furthermore, I have got rid of the x and y variables and changed it to FindTextTPA.
SCAR Code:Function PinScreen : Boolean;
Begin
Result := FindTextTPA(2070783, 0, 90, 50, 160, 85, 'Please', UpChars, Nothing);
End;
Enjoy.
