no deja guardar 2 veces

[edgar_prospero]

que hay amigos aqui con una dudilla haber si me pueden ayudar tengo un codigo que ahorita voy a mostrar donde puedo guardar registros y en caso de que ya exista me los actualiza cuando hago el procedimiento de guardar o actualizar por primera vez todo muy bien si hace el trabajo pero si lo quiero hacer de nuevo me marca un error raised exeption class EMysqlexeption with message (entre otras cosas no se si sea importante ponerlas)

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

tabla.SQL.Clear;

tabla.SQL.Add('insert into datos(folio, nombre, fecha, estado,problema,resuelto) values(:pfolio, :pnombre, :pfecha, :pestado, :pproblema,:presuelto)');

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;

  showmessage('grabado con exito');
end;