Insert utilizando TSQLQuery

    SQLQuery.SQL.Add(´INSERT INTO PRONTUARIO VALUES(´);
    SQLQuery.SQL.Add(´:CODIGOSAME,´);
    SQLQuery.SQL.Add(´:NOME,´);
    SQLQuery.SQL.Add(´:DATANASCIMENTO,´);
    SQLQuery.SQL.Add(´:SEXO,´);
    SQLQuery.SQL.Add(´:ESTADOCIVIL,´);
    SQLQuery.SQL.Add(´:PARENTESCO,´);
    SQLQuery.SQL.Add(´:CPF,´);
    SQLQuery.SQL.Add(´:TIPOPRONTUARIO,´);
    SQLQuery.SQL.Add(´:MOTIVO,´);
    SQLQuery.SQL.Add(´:DATASAME,´);
    SQLQuery.SQL.Add(´:DATAULTIMAALTERACAO)´);
    if _CODIGOSAME = ´´ then
      SQLQuery.ParamByName(´CODIGOSAME´).Value := null
    else
      SQLQuery.ParamByName(´CODIGOSAME´).Value := _CODIGOSAME;
    if _NOME = ´´ then
      SQLQuery.ParamByName(´NOME´).Value := null
    else
      SQLQuery.ParamByName(´NOME´).Value := _NOME;
    if _DATANASCIMENTO = 0 then
      SQLQuery.ParamByName(´DATANASCIMENTO´).Value := null
    else
      SQLQuery.ParamByName(´DATANASCIMENTO´).Value := _DATANASCIMENTO;
    if _SEXO = ´´ then
      SQLQuery.ParamByName(´SEXO´).Value := null
    else
      SQLQuery.ParamByName(´SEXO´).Value := _SEXO;
    if _ESTADOCIVIL = 0 then
      SQLQuery.ParamByName(´ESTADOCIVIL´).Value := null
    else
      SQLQuery.ParamByName(´ESTADOCIVIL´).Value := _ESTADOCIVIL;
    if _PARENTESCO = 0 then
      SQLQuery.ParamByName(´PARENTESCO´).Value := null
    else
      SQLQuery.ParamByName(´PARENTESCO´).Value := _PARENTESCO;
    if _CPF = ´´ then
      SQLQuery.ParamByName(´CPF´).Value := null
    else
      SQLQuery.ParamByName(´CPF´).Value := _CPF;
    if _TIPOPRONTUARIO = ´´ then
      SQLQuery.ParamByName(´TIPOPRONTUARIO´).Value := null
    else
      SQLQuery.ParamByName(´TIPOPRONTUARIO´).Value := _TIPOPRONTUARIO;
    if _MOTIVO = 0 then
      SQLQuery.ParamByName(´MOTIVO´).Value := null
    else
      SQLQuery.ParamByName(´MOTIVO´).Value := _MOTIVO;
    if _DATASAME = 0 then
      SQLQuery.ParamByName(´DATASAME´).Value := null
    else
      SQLQuery.ParamByName(´DATASAME´).Value := _DATASAME;
    if _DATAULTIMAALTERACAO = 0 then
      SQLQuery.ParamByName(´DATAULTIMAALTERACAO´).Value := null
    else
      SQLQuery.ParamByName(´DATAULTIMAALTERACAO´).Value := _DATAULTIMAALTERACAO;

    try
      SQLQuery.ExecSQL;
      Result := True;
    except
      Result := False;
    end;