Modificar & borrar desde delphi

[ecfisa]

Hola learning_delphi y bienvenido a los foros de Club Delphi.

Como es costumbre con los recién llegados, te invito a que leas la Guía de estilo (si no lo has echo ya ).
Encerré tu código Delphi entre las etiquetas [delphi] [/delphi], notarás que le dá mucha más legibilidad. El uso de las mismas lo encontrás aquí.

En cuanto a tu problema, creo que está en las líneas donde asignas el contenido a los parámetros:

Código Delphi [-]
  form1.q1.ParamByName('p1').asString:=form3.DBedit2;
  form1.q1.ParamByName('p2').aSSmallInt:=form3.DBedit1;

Ya que parece que tu intención es enviár el contenido de los DBEdit's como valores de los parámetros, deberías especificar la propiedad Text de los mismos, es decir algo así:

Código Delphi [-]
  with Form1.q1 do
  begin
    Close;
    SQL.Text:= 'UPDATE ZONAS SET NOMZONA = :P1 WHERE ZONA = :P2';
    ParamByName('P1').AsString:= Form3.DBEdit2.Text;
    ParamByName('P2').AsString:= Form3.DBEdit1.Text;
    ExcecSQL;
    ...
  end;

Un saludo.