Test case : Increment/Decrement Window using Delphi 6

                        
[drop tedit on form, set text to 0]
[drop tbutton on form, set caption to increment]
[drop tbutton on form, set caption to decrement]
[double click increment button, add code:]
edit1.text:=inttostr(strtoint(edit1.text)+1);
[double click decrement button, add code:]
edit1.text:=inttostr(strtoint(edit1.text)-1);