Fórum Intraweb #266770

Ola pessoal, preciso saber como chamar função ou procedimento declarado na Public do datamodule de uma aplicação Intraweb;

Eu chamo esta função ao criar o form e ocorre tudo bem, mas quando chamo no evento onclick do botão bera erro ´Objeto não conectado ao servidor´;

[b:1d96d89adc]metodo no dtm:[/b:1d96d89adc]
function TDtmTerminal.consulta(sCodigoTerminal: string): Boolean;
begin
try
ClientConsulta.Active := false;
ClientConsulta.Params[0].Value := sCodigoTerminal;
ClientConsulta.Open;
if ClientConsulta.RecordCount > 0 then
Result := true
else
Result := False;
except
result := false;
end;
end;

chamada no botão
procedure TFrmLogin.ButOKClick(Sender: TObject);
var id: integer;
begin
if UserSession.DtmTerminal.Consulta(EdtTerminal.text) then
begin
UserSession.gsNomeTerminal := edtTerminal.text;
TFrmPrincipal.Create(WebApplication).Show;
end
else
WebApplication.ShowMessage(´Favor selecionar o Terminal´, smAlert);
end;

Na chamada do evento gera o erro!

Espero a ajuda de vcs! :D