Trapping particular errors.

Trapping particular errors.

begin
  try
  ....
  except
    on Error_sharing_Violation do
    begin
      showmessage('Sharing violation....');
    end;
  else
    ...
  end;
end;