InsQry := TClientDataSet.Create(Self);
               InsQry.Close;
               InsQry.RemoteServer := DmMain.SocketConnection;
               InsQry.ProviderName := 'DSPMain';
               InsQry.CommandText := '';
               InsQry.CommandText := 'Update Customer Set CustomerName = :Param2, '
                                   + '                    ShortName = :Param3, '
                                   + '                    Chief = :Param4, '
                                   + '                    Charge = :Param5, '
                                   + '                    Nation = :Param6, '
                                   + '                    Address = :Param7, '
                                   + '                    ZipCode = :Param8, '
                                   + '                    TelNo = :Param9, '
                                   + '                    FaxNo = :Param10, '
                                   + '                    LicenseNo = :Param11, '
                                   + '                    EMailAddr = :Param12, '
                                   + '                    Condition = :Param13, '
                                   + '                    BItem = :Param14, '
                                   + '                    Remark = :Param15 '
                                   + 'Where CustomerCode = :Param1';
               InsQry.Params.Clear;
               InsQry.Params.CreateParam(ftString, 'Param1', ptInput);
               InsQry.Params.CreateParam(ftString, 'Param2', ptInput);
               InsQry.Params.CreateParam(ftString, 'Param3', ptInput);
               InsQry.Params.CreateParam(ftString, 'Param4', ptInput);
               InsQry.Params.CreateParam(ftString, 'Param5', ptInput);
               InsQry.Params.CreateParam(ftString, 'Param6', ptInput);
               InsQry.Params.CreateParam(ftString, 'Param7', ptInput);
               InsQry.Params.CreateParam(ftString, 'Param8', ptInput);
               InsQry.Params.CreateParam(ftString, 'Param9', ptInput);
               InsQry.Params.CreateParam(ftString, 'Param10', ptInput);
               InsQry.Params.CreateParam(ftString, 'Param11', ptInput);
               InsQry.Params.CreateParam(ftString, 'Param12', ptInput);
               InsQry.Params.CreateParam(ftString, 'Param13', ptInput);
               InsQry.Params.CreateParam(ftString, 'Param14', ptInput);
               InsQry.Params.CreateParam(ftString, 'Param15', ptInput);

               InsQry.Params.ParamByName('Param1').AsString := FEdtCustomerCode.Text;
               InsQry.Params.ParamByName('Param2').AsString := FEdtCustomerName.Text;
               InsQry.Params.ParamByName('Param3').AsString := FEdtShortName.Text;
               InsQry.Params.ParamByName('Param4').AsString := FEdtChief.Text;
               InsQry.Params.ParamByName('Param5').AsString := FEdtCharge.Text;
               InsQry.Params.ParamByName('Param6').AsString := FEdtNation.Text;
               InsQry.Params.ParamByName('Param7').AsString := FEdtAddress.Text;
               InsQry.Params.ParamByName('Param8').AsString := FEdtZipCode.Text;
               InsQry.Params.ParamByName('Param9').AsString := FEdtTelNo.Text;
               InsQry.Params.ParamByName('Param10').AsString := FEdtFaxNo.Text;
               InsQry.Params.ParamByName('Param11').AsString := FEdtLicenseNo.Text;
               InsQry.Params.ParamByName('Param12').AsString := FEdtEMailAddr.Text;
               InsQry.Params.ParamByName('Param13').AsString := FEdtCondition.Text;
               InsQry.Params.ParamByName('Param14').AsString := FEdtBItem.Text;
               InsQry.Params.ParamByName('Param15').AsString := FMemoRemark.Text;

               InsQry.Execute;


소스는이렇습니다....
실행시키면 아무런 error없이 잘돌아갑니다...
하지만 제가 Update하려고 한내용이 그대로 입니다..
우찌된일인지 헤메고 있습니다...
도움 부탁드립니다...