diff --git a/designer/tslvcldesigner.tsf b/designer/tslvcldesigner.tsf
index 1860036..4ff9f1d 100644
--- a/designer/tslvcldesigner.tsf
+++ b/designer/tslvcldesigner.tsf
@@ -1076,8 +1076,8 @@ type TVclDesigner = class(tvcform)
     begin
         if fcutcopyinfo then 
         begin
-            pastinfotonode(nd,fcutcopyinfo); 
-            if fcutcopyinfo["name"] then fcutcopyinfo := nil;    
+            r := pastinfotonode(nd,fcutcopyinfo); 
+            if fcutcopyinfo["name"] and not(r) then fcutcopyinfo := nil;    //如果失败就不清除内容
         end     
     end 
     function pastinfotonode(nd,data);
@@ -1089,7 +1089,7 @@ type TVclDesigner = class(tvcform)
         end 
         
         nnd := tc.ComponentCreater(nd,nd.Component.Cwnd);
-        if not nnd then return ;
+        if not nnd then return 1; //加入失败处理
         nnd.CreateName();    
         FVariableSelecter.additem(nnd);
         BindCwndMessage(nnd.Cwnd);