Locks the current record.
procedure Lock; virtual;
Call the Lock method to lock the current record by executing the statement that is defined in the SQLLock property (for the TOraQuery component).
The Lock method sets the savepoint with the name LOCK_ + <component_name>.
TOraQuery uses SQLLock to execute the current record locking. TSmartQuery builds a SELECT FOR UPDATE statement itself.