You are not using the result in
Function Tin:Boolean;
You could make that a procedure instead on a function.
You may want to consider working on your standards a bit. A good starter rule is whenever you have a new begin/repeat/case you tab the next line (or double space) and do the opposite for the end/until.
I don't think that it actually uses the breaks. You would need to use either a mark time or time running with the constants (BreakEvery and BreakFor) to get it to log out for that time. I'm not 100% sure about the best way to do it as I am relatively new to scripting as well. Try this guide:
http://villavu.com/forum/showthread.php?t=64374Same deal with the srl stats. You would need to implement it in the script. A good guide on it is here:
http://villavu.com/forum/showthread.php?t=61086Good effort for a first script :)
~Caotom