Selecione o uWebModule.pas.

No campo “Search” Digite “TDSserverClass” e pressione ENTER.

Selecione a Classe nova.

No campo “Name” informe o nome da Classe.

No campo “LifeCycle” mude para “Invocation”.

No campo “Server” altere para “Server”.

Clique com o botão direito do mouse no executável do projeto, depois clique em “Add New” e depois em “Other”.

Selecione “Data Module” e depois clique em “OK”.

Aperte “ctrl+s” ou vá no menu “File” e click em “save”.

informe o nome do arquivo. Como padrão o nome tem que ter a primeira letra sendo “u” e depois seguido pelo nome da classe. Por exemplo: com a “classTeste” o nome ficaria uTeste.pas. Depois clique no botão “Salvar”.

No campo “Name” altere o nome.

Clique novamente em “uWebModule”.

depois na classe nova.

Clique em “Events” e depois em “OneGetClass” e depois dê um clique duplo no campo vazio. O campo será preenchido automaticamente.

O Delphi Xe2 irá redirecionar para o código fonte do uWebModule. Digite o seguinte comando: PersistentClass := uTeste.TTeste;. Onde o “uTeste” será “u” mais o nome da classe e o “TTeste” será o “T” e mais o nome da classe.

Depois volte para aba do “uTeste” e aperte “F12” para ir ao código fonte.

Aperte “Alt+F11” e selecione o “uServiceContainer” e depois clique em “OK”.

No cógigo fonte do “uTeste” altere o tipo da Classe para “TDSServerModule”.