hacer ping en android

[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


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;