no deja guardar 2 veces

[edgar_prospero]

gracias ecfisa y pues si yo tambien no lo habia agregado a la hora de limpiar porque ya lo tenia en ese proceso pero despues de estar intentando pues al fin quedo muchas gracias y hay los seguire molestando cuando me vuelva a surgir mas problemas

[Casimiro Noteví]

Bueno, nunca nos enteraremos, pero está claro que eso no puede ser así, salvo que hayas puesto aquí un código que no es realmente el que estás usando

[edgar_prospero]

que pues amigo te estoy siendo sincero eso que puse es el mismo codigo que estoy usando y con lo que te dije se soluciono mi problema no tengo porque mentir y si tienes tantas dudas de lo que digo pues intenta implementarlo a ver si te marca el mismo error a ti

[Casimiro Noteví]

Nadie ha dicho que mientas
Seguramente has cambiado alguna otra cosa y después has puesto eso en 'limpiarclick' y ha funcionado, pero no por eso, sino por lo que hayas hecho antes.

[edgar_prospero]

Casimiro Notevi me dejaste pensando y quite esa linea de codigo y me marco el error y se la puse y ya sin problema
codigo para guardar la informacion

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
begin;

tabla.Close;
tabla.SQL.Add('insert into datos(folio, nombre, fecha, estado, problema,resuelto)values(folio, nombre, fecha, estado, problema,resuelto) on duplicate key update nombre=nombre,fecha=fecha, estado=: pestado, problema=: pproblema,resuelto=resuelto');
tabla.ParamByName('pfolio').AsString:=folio.Text;
tabla.ParamByName('pnombre').AsString:=nombre.Text;
tabla.ParamByName('pfecha').AsDate:=fecha.DateTime;
tabla.ParamByName('pestado').AsString:=estado.Text;
tabla.ParamByName('pproblema').AsString:=problema.Text;
tabla.ParamByName('presuelto').Asstring:=nombre.Text;
tabla.Execute;

  tabla.SQL.Clear;

  showmessage('grabado con exito ');
end;

codigo para limpiar la informacion es a lo unico que le he podido mover desde que puse mi pregunta y asi es como lo tengo actualmente

Código Delphi [-]
procedure TForm1.limpiarClick(Sender: TObject);
begin

folio.Clear;
nombre.Clear;
estado.Clear;
problema.Clear;
folio.SetFocus;
  tabla.SQL.Clear;