this is a test framework for delphi_FMX :-)