[[kurono]]

hola amigos como estan les comento que hace unos meses hise una aplicacion para hacer ping en windows del rango de IP de un router y funciona perfectamente pero ahora lo e pasado a android y no me funciona me de el error de socket 1 uso el componente IdIcmpClient1 de las indy este es el codigo

Código Delphi [-]
procedure TForm2.Button1Click(Sender: TObject);
var
 ABuffer:string;
 I:Integer;
begin
Memo1.Lines.Clear;
Memo1.Lines.Add('----------------------------------------------');
for I :=101 to 110 do
 begin
  ABuffer:= IdIcmpClient1.Host + StringOfChar(' ', 255);
  IdIcmpClient1.Host:='192.168.0.'+ IntToStr(I);
  IdIcmpClient1.Ping(ABuffer);
  IdIcmpClient1.CleanupInstance;
 end;
 Memo1.Lines.Add('----------------------------------------------');
end;

procedure TForm2.IdIcmpClient1Reply(ASender: TComponent;
  const AReplyStatus: TReplyStatus);
  var
  I:Integer;
begin
  if IdIcmpClient1.ReplyStatus.BytesReceived = 0 then
    begin
     Memo1.Lines.Add('192.168.0.'+ IntToStr(I) +' Desconectado');
    end
    else
    begin
     Memo1.Lines.Add('192.168.0.'+ IntToStr(I) +' Conectado');
    end;
end;