[jonydread]

gracias funciono perfecto tengo un error en esta parte

Código Delphi [-]
 raise exception.Create('Registro Existe')else

dice algo de raise class exeption
pero en fin la cambie por un messagedlg


saludos