Alta de registros

Me da error de expecion y no se porque no añade el registro: este es el código de mi button:
Declare
xcan NUMBER;
BEGIN
SELECT COUNT(*) INTO xcan
FROM socio WHERE ci=:socio.ci;
IF xcan>=1 THEN
message('El Registro ya existe');
pause;
ELSE
INSERT INTO socio (ci,nombre,apepat,apemat,direcc,fec_nac,sexo)
VALUES(
:socio.ci||:socio.oci,
:Socio. Nombre,
:Socio.apepat,
:Socio.apemat,
:socio.direcc,
TO_DATE(:socio.fec_nac,'dd-mm-yyyy'),
:Socio. Sexo
);
COMMIT;
END IF;
EXCEPTION
WHEN OTHERS THEN
message('Error Indefinido');
pause;
END;
** otra interrogante tengo los botones en el mismo bloque de datos que los campos text .. Es correcto ??? Que me aconseja ??