关于远程数据添加的有关问题

关于远程数据添加的问题？
代码怎样看都没有问题，却报错或添加不进去：
try
         with DataAPPCenter.AdoResultNum do
         begin
              close;
              sql.Clear;
              sql.Add('Insert into SendFcsM ([InfoId],[ID],[SendFcsMobile],[SendFcsStr],[SendStatus],[TaskState],[readState],[No],[AddTime]) values (NEWID(),0,'''+MobileID+''','''+Messtr+''',0,0,1,0,GETDATE())');
              execsql;   //使用execsql即添加不进去，改为OPEN可以，但报内存占用的错误
               Fitem.ImageIndex:=2;
         end;
       except
            Fitem.ImageIndex:=0;
            DataConnTime.Enabled:=true;
            WriteLogInfo(true,datetimetostr(now())+'   SendFcsTaskFaile:SendSql='+SendSql.Text+';'+';FcsNum='+inttostr(FcsNum));
        end;
这样可以存进去，但是报报内存占用的错误并执行到open这里就到except那里去了
try
           with DataAPPCenter.AdoResultNum do
           begin
              close;
              sql.Clear;
              sql.Add('Insert into SendFcsM ([InfoId],[ID],[SendFcsMobile],[SendFcsStr],[SendStatus],[TaskState],[readState],[No],[AddTime]) values (NEWID(),0,'''+MobileID+''','''+Messtr+''',0,0,1,0,GETDATE())');
              open;   //改为OPEN可以，但报内存占用的错误
       //post;
        Fitem.ImageIndex:=2;
           end;
       except
            Fitem.ImageIndex:=0;
            DataConnTime.Enabled:=true;
            WriteLogInfo(true,datetimetostr(now())+'   SendFcsTaskFaile:SendSql='+SendSql.Text+';'+';FcsNum='+inttostr(FcsNum));
        end;
------解决方案--------------------
不明觉厉