Encontrar todas las Computadoras de una Red LAN TCP/IP

[ljvenegas]

esta es la funcion que necesito pero no la puedo llamar me da el siguiente error de compilacion al click de un boton

procedure Tform1.button1click(Sender: Tobjecty);
begin
findcomputer;
//findcomp;
//findcomputers;
end;

undeclaraded identifier 'findcomputer'

te agradeceria si me puedes ayudar

gracias