Código Delphi
[-] Compras.query1.SQL.Clear;
Compras.query1.SQL.Add('insert into compras (Cve_pd,Clave,Cantidad,Descripcion,Precio,Importe,Pz_Caja)VALUES('+
''''+Compras.Maskedit3.Text+''''+','+
''''+Maskedit1.Text +''''+','+
''''+Maskedit3.Text +''''+','+
''''+Maskedit2.Text +''''+','+
''''+Maskedit5.Text +''''+','+
''''+MaskEdit6.Text+''''+','+
''''+Maskedit4.Text +''''+')');
ShowMessage(Quer1.Sql.Text);
Compras.query1.ExecSQL;
Observa el SQL que te construye, lo verás en pantalla y trata de localizar el error.
Un Saludo.