Fórum Evitar aparecer a msg de erro. #353694

Record locked by another user
Esse erro ocorre quando vou alterar algum registro e ele ja esta sendo alterado por outra pessoa em outra estação.

procedure TForm2.Table1EditError(DataSet: TDataSet; E: EDatabaseError;
var Action: TDataAction);
begin
if E is EDBEngineError then
begin
with EDBEngineError(E), Errors[0] do
if ErrorCode = 10241 then // Has Details
ShowMessage(´Registro bloqueado em outra estação !´);
end;
end;

coloquei a seguinte procedure ela mostra a MGS
ShowMessage(´Registro bloqueado em outra estação !´);
mais logo apos aparece a msg de erro
Record locked by another user
como faço para evitar que ela apareça