삭제를 위한 암호를 넣어 주세요

해결하였습니다~
if not Assigned(smc) then smc := TServerMethodsClient.Create(DBXConnection,False); 
두번째 파라미터로 FInstanceOwner 를 지정할 수 있네요

function TServerMethodsClient.smfunc_GetDataObject(TableName: string; EqualFieldNames: string; EqualFieldValues: OleVariant; UnEqualFieldNames: string; UnEqualFieldValues: OleVariant): TObject;
begin
  if Fsmfunc_GetDataObjectCommand = nil then
  begin
    Fsmfunc_GetDataObjectCommand := FDBXConnection.CreateCommand;
    Fsmfunc_GetDataObjectCommand.CommandType := TDBXCommandTypes.DSServerMethod;
    Fsmfunc_GetDataObjectCommand.Text := 'TServerMethods.smfunc_GetDataObject';
    Fsmfunc_GetDataObjectCommand.Prepare;
  end;
  Fsmfunc_GetDataObjectCommand.Parameters[0].Value.SetWideString(TableName);
  Fsmfunc_GetDataObjectCommand.Parameters[1].Value.SetWideString(EqualFieldNames);
  Fsmfunc_GetDataObjectCommand.Parameters[2].Value.AsVariant := EqualFieldValues;
  Fsmfunc_GetDataObjectCommand.Parameters[3].Value.SetWideString(UnEqualFieldNames);
  Fsmfunc_GetDataObjectCommand.Parameters[4].Value.AsVariant := UnEqualFieldValues;
  Fsmfunc_GetDataObjectCommand.ExecuteUpdate;
  if not Fsmfunc_GetDataObjectCommand.Parameters[5].Value.IsNull then
  begin
    FUnMarshal := TDBXClientCommand(Fsmfunc_GetDataObjectCommand.Parameters[5].ConnectionHandler).GetJSONUnMarshaler;
    try
      Result := TObject(FUnMarshal.UnMarshal(Fsmfunc_GetDataObjectCommand.Parameters[5].Value.GetJSONValue(True)));
      if FInstanceOwner then<--- 여기가 문제였던거임 ^^
        Fsmfunc_GetDataObjectCommand.FreeOnExecute(Result);
    finally
      FreeAndNil(FUnMarshal)
    end
  end
  else
    Result := nil;
end; 
2018-04-19 오후 3:56:25