[Descendents]

substituye el showmessage por
MessageDlg('Favor de editar una colonia valida', mtWarning, [mbOK], 0);