Localizar computadoras en la red y conectarse a ellas

[madman]

Por el momento estoy trabajando con la unit que proporcionaste, para asegurarme de que primero pueda ubicar las computadoras y mostrarlas. La conexión entre ellas la hare despues, de que logre que esto funcione :P

Posteado originalmente por cadetill, con algunas observaciones por madman

//---------------------------------------------------------------------------------
***** Este es tu Procedimiento ***** 
procedure TCTerminales.ICMPReply(ASender: TComponent; const  ReplyStatus: TReplyStatus);
begin
.....
end;

***** Este es el Procedimiento  con los parametros que te da al crearlo con OnReply de los Eventos del ICMPClient***** 
procedure TCTerminales.ICMPReply(ASender: TComponent; const AReplyStatus: TReplyStatus);
begin
.....
end;

Nada mas difieren en que el tuyo no tiene la 'A' al principio.
No se porque asignas esto, para mi es solo una línea de más:

procedure TCTerminales.Ping(var vHost : String);
begin
     ICMP.OnReply := ICMPReply; 
     ICMP.ReceiveTimeout := 1000;
     try
             ...
     end;
end;

Me ocurre un error al llamar, el procedimiento A_BuscaIPsExecute(), lo mando llamar desde un Boton ya sea por su nombre o teniendo en el BotonClick el mismo codigo que este.
Cuando lo hago siempre se sale del programa y me manda a esta linea:

function TCTerminales.GetPIDLSize(IDList: PItemIDList): Integer;
begin
     Result := 0;
     if Assigned(IDList) then
      begin
           Result := SizeOf(IDList^.mkid.cb);
           while IDList^.mkid.cb <> 0 do 
            begin
                 Result := Result + IDList^.mkid.cb;
                 IDList := NextPIDL(IDList);
            end;
      end;
end;

end.