Código Delphi
[-]
procedure TFclienteN.BitBtn1Click(Sender: TObject);
begin
with Query1 do
begin
close;
sql.clear;
SQL.add('INSERT INTO clientes (IDcliente,Nombre_Cliente,Apellido,Dirreccion,Cedula,Telefono,)' );
SQL.add ( 'VALUES( :edit6,:edit1, :edit3,:edit4,:edit2,:edit4)' );
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;
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.