Recorrer Query en Enviar SMS

[Casimiro Noteví]

Código Delphi [-]
datos.sqcontactos.Close;   //  si solo necesitas el campo celular, entonces no traerse todos con el *
datos.sqcontactos.SQL.Text := 'select celular from vcontactos where celular is not null';  // ¿null o acaso están con cadena vacía?
datos.sqcontactos.Open;
while not Eof do
begin
  phonenumber := datos.sqcontactos.FieldByName('celular').AsString;
  Text := mmomensaje.Text;
  user := 'mipass';        //  user ¿mipass?
  password:='miusuario';   //  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;

Pues eso