Can I get an example of LockRecord coding?

Question: Can I get an example of LockRecord coding?

Answer: var lck: TLockStatus;

lck:=pFIBDataSet.LockRecord(false);
case lck of
lsDeadLock: ShowMessage('Used by another user');
lsNotExist: ShowMessage('Record deleted');
lsMultiply: ShowMessage('Multiply records bloqued');
lsUnknownError: ShowMessage('Unknown Error locking')
else
// Access granted
end;