[AGAG4]

La única forma que conozco cuando otro usuario ha ó esta modificando un registro es cuando te lanza la excepción
lock conflict on no wait transaction
deadlock
update conflicts with concurrent update

Puedes cachar esa excepción:

Código Delphi [-]
try
  //Tu Código
except
  on E:Exception do
  if copy(E.Message,1,45) = 'lock conflict on no wait transaction deadlock'
    showmessage('Registro esta haciendo Modificado por otro usuario');
end;