＂获得主机名和IP地址＂　和　＂监测局域网内计算机＂

哪位大虾可以帮帮忙啊，帮我把这两段程序分析一下啊，万分感激！！！！！！
获得主机名和IP地址：
 hostName;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms，Dialogs,
  StdCtrls, Winsock;
type
  TForm1 = class(TForm)
    Edit1: TEdit;Label1: TLabel;Label2: TLabel;Edit2: TEdit;Edit3: TEdit;
    Label3: TLabel;Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var
        Ip:string;
        Ipstr:string;
        Buffer:Array[1..32] of char;     
        i:integer;
        WSData:TWSAdata;      
        Host:PHostEnt;       
begin
        if WSAstartup(2,WSData)<>0 then    
        begin
            ShowMessage('WS2_32.DLL初始化失败!');　　halt;　　　end;
        try                                       
            if GetHostName(@Buffer[1],32)<>0 then     
            begin
                ShowMessage('没有得到主机名!');　　　 halt;　　end;
        except
            ShowMessage('没有成功返回主机名');　　　 halt;　　　end;
        Host := GetHostByName(@Buffer[1]);
        if Host = nil then
             begin
                ShowMessage('IP地址为空');　　　　　 halt;　　　end
        else
             begin
                Edit2.Text := Host.h_name;
                Edit3.Text := Chr(Host.h_addrtype+64);
                for i:=1 to 4 do            
                    begin
                        Ip:=IntToStr(Ord(Host.h_addr^[i-1]));
                        ShowMessage('分段IP地址为:'+Ip);
                        if i<4 then
                           Ipstr := Ipstr + Ip + '.'
                        else
                           Edit1.Text:=Ipstr+Ip;　　　end;　　　　end;
                WSACleanup;　　 end;    end.
监测局域网内计算机:
unit local;
interface
uses
 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls,Winsock;
type
  TForm1 = class(TForm)
  Button1: TButton;   Edit1: TEdit;   Memo1: TMemo;  Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
function FindComputer(ComputerName: string):Boolean;
implementation
{$R *.DFM}
function FindComputer(ComputerName: string):Boolean;
var
  WSAData: TWSAData;     
  HostEnt: PHostEnt;
begin
  Result :=True;
  WSAStartup(2, WSAData);
  HostEnt := gethostbyname(PChar(ComputerName));
  if HostEnt = nil then Result := False;
  WSACleanup;     end;
procedure TForm1.Button1Click(Sender: TObject);
begin
  if FindComputer(edit1.text)=True then
    Memo1.lines.Add(edit1.text+'在局域网上！')
  else
    Memo1.lines.Add(edit1.text+'不在局域网上！');   end;   end.