[firebase-br] Remover user do FB

[Enio Marconcini - www.delfosistemas.com]

Amigos, estou usando o MDOSecurityService de acordo com o artigo

http://www.firebase.com.br/fb/artigo.php?id=783

consegui cadastrar os usuários perfeitamente com o código abaixo:

  if not(DBEdit3.Field.IsNull) and not(DBEdit4.Field.IsNull) then begin
>     DataModulo.MDOSecurityService1.UserName := DBEdit3.Field.AsString;
>     DataModulo.MDOSecurityService1.Password := DBEdit4.Field.AsString;
>     DataModulo.MDOSecurityService1.FirstName := Copy(
> DBEdit1.Field.AsString,01,15);
>     DataModulo.MDOSecurityService1.LastName := '('+Copy(
> DBText1.Field.AsString,01,13)+')';
>     DataModulo.MDOSecurityService1.Active := True;
>     case dsCadastro.State of
>       dsInsert : DataModulo.MDOSecurityService1.AddUser;
>       dsEdit : DataModulo.MDOSecurityService1.ModifyUser;
>     end;
>     while DataModulo.MDOSecurityService1.IsServiceRunning do;
>     DataModulo.MDOSecurityService1.Active := False;
>   end;
>

alguém tem algum exemplo de como remover?
estou usando o seguinte código:

  with DataModulo.MDOSecurityService1 do begin
>     LoginPrompt := True;
>     UserName := qryGrade.FieldByName('LOGIN').AsString;
>     Password := Criptografa(qryGrade.FieldByName('SENHA').AsString);
>     Active := True;
>     DeleteUser;
>     while IsServiceRunning do;
>     Active := False;
>     LoginPrompt := False;
>   end;
>

os parametros já foram setados no momendo em que o datamodule é criado:

    MDOSecurityService1.ServerName := Copy(MDODatabase1.DatabaseName
> ,01,Pos(':',MDODatabase1.DatabaseName)-1);
>     MDOSecurityService1.Params.Values['user_name'] :=
> MDODatabase1.Params.Values['user_name'];
>     MDOSecurityService1.Params.Values['password'] :=
> MDODatabase1.Params.Values['password'];
>

alguém tem algum exemplo de como remover o usuário?

abraço

-- 
[]'s
ENIO RODRIGO MARCONCINI
...: www.santafedosul.sp.gov.br
.......: msn: eniorm em gmail.com
.......................: skype: eniorm
Linux User................. #433647
slack the planet.....................'.