no deja guardar 2 veces

[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;