En el caso de paradox, primero has de tener todo configurado de forma correcta para que los bloqueos de registros funcionen bien. Mírate esta columna:
Paradox en red
Luego tan solo has de controlar el evento OnEditError de la tabla para lanzar un mensaje de aviso cuando alguien intenta editar un registro que está modificando otro usuario. Por ejemplo:
Código:
procedure TForm1.Table1EditError(DataSet: TDataSet; E: EDatabaseError; var Action: TDataAction);
begin
Action := daAbort;
MessageDlg('No es posible editar el registro actual por que está bloqueado por otro usuario.', mtWarning, [mbOK], 0);
end;
Salu2.