query no Graba , se cierra

[[AzidRain]]

Código Delphi [-]

procedure TFclienteN.BitBtn1Click(Sender: TObject);
//Version mejorada, mas legible y mas potente
begin
with Query1 do
       begin
  close;
  sql.clear;
  // Ponenmos la setencia SQL pero parametrizada
   SQL.add('INSERT INTO clientes   (IDcliente,Nombre_Cliente,Apellido,Dirreccion,Cedula,Telefono,)' );
SQL.add ( 'VALUES( :edit6,:edit1, :edit3,:edit4,:edit2,:edit4)' );

//Asignamos valores a los parametros:

 ParamByName('edit1').AsString := edit1.Text;
 ParamByName('edit2').AsString := edit2.Text;
 ParamByName('edit3').AsString := edit3.Text;
 ParamByName('edit4').AsString := edit4.Text;
 ParamByName('edit6').AsString := edit6.Text;
// Delphi hace la conversión de tipos, en caso de que no se pueda asigna un null. Por ejemplo si pusiste una letra y el campo espera numeros..se coloca un null

//Grabamos los datos

ExecSQL;

    end;

El codigo anterior queda mas legible y no necesitas concatenar cadenas para formar la sentencia. Obviamente tienes que validar los Edits para que los que tengan que llevar solo números efectivamente los lleven para que al momento de hacer el query no haya problema.