datos.sqcontactos.Close; datos.sqcontactos.SQL.Text := 'select celular from vcontactos where celular is not null'; datos.sqcontactos.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;