deprecated-directive = $DEPRECATED { string-message } .
Define the current unit, procedure or function as obsolete. If it is used, the compiler will output a warning with the given optional <string-message> (quoted string).
{$DEPRECATED 'This procedure is kept for compatibility only' }