Fórum Try Exception não funciona. #241328

  if ADOQuery1.IsEmpty() then
    ShowMessage(´Não existem registros!´)
  else
    ADOQuery1.Delete;

if MessageDlg(´Você deseja realmente deletar este registro?´, 
               mtConfirmation, [mbYes, mbNo], 0) = mrYes then
begin
  try  
    ADOQuery1.delete; 
  except
    ShowMessage(´Ocorreu um erro !´);
  end; 
end;

if MessageDlg(´Você deseja realmente deletar este registro?´, 
               mtConfirmation, [mbYes, mbNo], 0) = mrYes then
begin
  try  
    ADOQuery1.delete; 
  except
    on E: Exception do
      ShowMessage(´Ocorreu um erro e a mensagem é :´ + E.Message);
  end; 
end;