Exemplo da Chamada no Delphi

var

  vDM: TDM_IntLancamento_Server;

begin

  try

    vDM := TDM_ IntLancamento _Server.Create(Self);

    vDM.CL_ CL_LancInt_.CreateDataSet;

    vDM.CL_ CL_LancInt_.Insert;

    // Alimenta os campos e faz o mesmo com os outros datasets

    vDM.Integra(1{código do usuário},

                          [vDM. CL_LancInt_ .Data, 

                          vDM. CL_ItemLancInt_ .Data, 

                          vDM. CL_ItemLancCCInt_. Data, 

                          vDM. CL_ItemLancProInt_ .Data]);

  finally

    FreeAndNil(vDM);

  end;

end;