Tested in AppMethod and XE6