LCL: Testcode for TButton