diff --git a/ba/ba2100.cpp b/ba/ba2100.cpp
index 7e850d4c9..33f97c041 100755
--- a/ba/ba2100.cpp
+++ b/ba/ba2100.cpp
@@ -59,7 +59,9 @@ bool TForm_editor::create()
       if (code == 0)
         code = atol(argv(a));
   }
-
+  
+  bool go = FALSE;
+  
   if ((form && code) || (form && code == 0 && _extra))
   {
     _form = new TForm(form, code, _extra ? 2 : 1);
@@ -88,22 +90,43 @@ bool TForm_editor::create()
       
       if (k == K_ENTER)
       {
-        m.stop_run(K_ENTER);
         _form = new TForm(fform, fcode, _extra ? 2 :1, fdesc);    
-        _form->set_description(m.get(F_DESC));
-        enable_menu_item(M_FILE_PRINT);
-        if (!_extra) dispatch_e_menu(MENU_ITEM(31));       
+        go  = TRUE;
+        break;
       }            
       else if (k == K_DEL)
       {
         if (yesno_box("Confermare la cancellazione del "
                       "profilo %05ld", fcode))
         { 
-          // TBI remove form
+          TLocalisamfile frm(LF_FORM);
+          frm.zero(); 
+          frm.put("TIPOPROF", fform);
+          frm.put("CODPROF",  fcode);
+          if (frm.read() == NOERR)
+            frm.remove();
+          TLocalisamfile rfr(LF_RFORM);
+          rfr.zero(); 
+          rfr.put("TIPOPROF", fform);
+          rfr.put("CODPROF",  fcode);
+          if (rfr.read() == NOERR)
+          {
+            for (; rfr.get_long("CODPROF") == fcode && rfr.get("TIPOPROF")
+                 == fform; rfr.next())
+              rfr.remove();
+          }
+          m.set(F_CODE,"");
+          m.set(F_BASE,"");
+          m.set(F_DESC,"");
         }
       }                                                        
     }   
-    // error_box("Specificare il form da modificare!");
+  }
+  
+  if (go)
+  {
+    enable_menu_item(M_FILE_PRINT);
+    if (!_extra) dispatch_e_menu(MENU_ITEM(31));       
   }
   
   return form != NULL;