ACBRSMS em lote

[thiago.alvares]

Caros senhores, criei uma aplicacao para envio de sms com o componente acbrsms, para envio de menssagem uma por vez, o sistema envia normalmente, sem erros..

mas quanto tento enviar por lote, ele envia a menssagem mas sem o texto digitado.

segue abaixo como criei o loop e usei parte do exemplo do acbrsms

begin

try

contador:=0;

texto:=memo1.Text;

dtsmsprincipal.clsmsclie.First;

LoteMsgs := TACBrSMSMensagens.Create;

while not dtsmsprincipal.CLSMSCLIE.Eof do

begin

with LoteMsgs.Add do

begin

telefone:=dtsmsprincipal.CLSMSCLIENUM_CEL_CLIE.AsString;

Menssagem:=texto;

end;

contador:=contador+1;

showmessage(menssagem);

dtsmsprincipal.CLSMSCLIE.Next;

end;

frmPrincipal.ACBrSMS1.EnviarSMSLote(LoteMsgs, Indices);

ShowMessage('Enviadas: ' + Indices);

finally

LoteMsgs.Free;

end;

onde esta o erro?

Porque chega a menssagem mas sem o texto?

Desde ja agradeço pela ajuda..

Thiago Alvares