Problema Para Guardar

[cloayza]

Hilando un poco fino, te sugiero lo siguiente:

Código Delphi [-]
PROCEDURE TFORM3.INGRESAR (NOM1,APEL,SEX,ESTA,MAIL,LIDE,DIREC,DIST,BAUT,MIEM:     string;   FECHA1,FECHA2: TDate; ACTI:BOOLEAN);
VAR CODIGO:INTEGER;
begin
     CODIGO:=OBTENER_ULTIMO_CODIGO+1;

     SQLQUERY1.Close;
     IF (ESTA = 'CASADO(A)') AND (ACTI=TRUE) THEN
     BEGIN
          SQLQUERY1.SQL.Text:=  'Insert Into MIEMBROS(CODIGO_MIEMBRO,NOMBRE_COMPLETO,NOMBRE,APELLIDOS,FECHA_NACIMIENTO,SEXO,ESTADO_CIVIL,FECHA_BO  DA,CORREO,LIDER,DIRECCION,DISTRITO,BAUTIZADO,
TIPO_MIEMBRO) Values(:COD,:FULLNAME,:NOM,:APELL,:FECHA_N,:SEX,:ESTADO_CIV,:FECHA_B,:EMAIL,:LIDER1,IREC,ISTR,:B  AUTI,:TIPO1)';

          SQLQUERY1.ParamByName('FECHA_B').AsDate:=FECHA2;
      END
      ELSE
      BEGIN
          SQLQUERY1.SQL.Text:=  'Insert Into MIEMBROS(CODIGO_MIEMBRO,NOMBRE_COMPLETO,NOMBRE,APELLIDOS,FECHA_NACIMIENTO,SEXO,ESTADO_CIVIL,CORREO,L  IDER,DIRECCION,DISTRITO,BAUTIZADO,TIPO_MIEMBRO)
                                 Values(:COD,:FULLNAME,:NOM,:APELL,:FECHA_N,:SEX,:ESTADO_CIV,:EMAIL,:LIDER1,IREC,ISTR,:BAUTI,:TIPO1)'  ;
      END;
      SQLQUERY1.ParamByName('COD').AsInteger:=CODIGO;
      SQLQUERY1.ParamByName('FULLNAME').ASSTRING:=NOM1+', '+APEL;
      SQLQUERY1.ParamByName('NOM').ASSTRING:=NOM1;
      SQLQUERY1.ParamByName('APELL').ASSTRING:=APEL;
      SQLQUERY1.ParamByName('FECHA_N').AsDate:=FECHA1;
      SQLQUERY1.ParamByName('SEX').ASSTRING:=SEX;
      SQLQUERY1.ParamByName('ESTADO_CIV').ASSTRING:=ESTA;
      SQLQUERY1.ParamByName('EMAIL').ASSTRING:=MAIL;
      SQLQUERY1.ParamByName('LIDER1').ASSTRING:=LIDE;
      SQLQUERY1.ParamByName('DIREC').ASSTRING:=DIREC;
      SQLQUERY1.ParamByName('DISTR').ASSTRING:=DIST;
      SQLQUERY1.ParamByName('BAUTI').ASSTRING:=BAUT;
      SQLQUERY1.ParamByName('TIPO1').ASSTRING:=MIEM;
      SQLQUERY1.ExecSQL;
end;

Saludos cordiales