Recorrer Query en Enviar SMS

[webmasterplc]

Buenas estoy tratando de recorrer una consulta para concatenar una direccion url y enviar un sms

mi codigo es el siguiente

Código Delphi [-]
with datos.sqcontactos do
begin
                Close;
                SQL.Text := 'SELECT * FROM vcontactos where vcontactos.celular IS NOT NULL';
                Open;
 
    while not Eof do
    begin

              phonenumber:=datos.sqcontactos.FieldByName('celular').AsString;
                    Text:=mmomensaje.Text;
              user:='mipass';
              password:='miusuario';
              parametros:='phonenumber='+phonenumber+'&Text='+Text+'&user='+user+'&password='+password;
             respuesta := 'http://www.enlinea-ve.com/api2/'+'?'+parametros;
             wb2.Navigate(respuesta);
           
             datos.sqcontactos.Next;




     end;

La Consulta me regresa 1000 registros y solo me envia 3 sms paraeciera que al tercer registro se detiene