long ParameterAsLong ( const DataVect& parameters, const FMX_UInt32 which, const unsigned long default_value ) { try { return parameters.AtAsNumber ( which ).AsLong(); } catch ( exception& e ) { return default_value; } }