IP地址转换成机器名（不好意思，没有什么分了）(20分)

在Edit1中输入192.168.168.1,怎么才能在edit2中显示对应的机器名，在edit3中显示对应机器的共享文件夹名？？
请大侠指点。

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Db, DBClient, MConnect, StdCtrls, SConnect,winsock;

type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Button2: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
Var
WSAData: TWSAData;
HostEnt: PHostEnt;
Name : string;
begin
WSAStartup(2, WSAData);// socket.dll 2.0
Name := edit1.Text;
HostEnt := gethostbyname(PChar(Name));
with HostEnt^ do
edit1.Text := Format('%d.%d.%d.%d', [Byte(h_addr^[0]),
Byte(h_addr^[1]), Byte(h_addr^[2]), Byte(h_addr^[3])]);
WSACleanup;
end;



procedure TForm1.Button2Click(Sender: TObject);
var
WSAData:TWSAData;
pHostEnt;
sIP:string;
InetAddr:dword;
begin
WSAStartup(2, WSAData);
sIP:=edit1.text;
InetAddr:= inet_addr(PChar(sIP));
try
try
p:=GetHostByAddr(@InetAddr, Length(sIP), PF_Inet);
if p = nil then exit;
memo1.lines.add('IP地址：'+sIP);
memo1.lines.add('计算机名：'+p^.h_name);
memo1.lines.add('别名：'+string(p^.h_aliases));
memo1.lines.add('地址类型：'+chr(p^.h_addrtype+64));
//p^.h_addrtype为1时对应地址类型为A，65为ASCII码A对应的数值
//当返回值p^.h_addrtype为1时地址类型是A，返回2时地址类型是B，以此类推
memo1.lines.add('地址长度：'+inttostr(p^.h_length)+'字节');
//一般IPv4地址长度为4个字节
memo1.lines.add('---------------------------');
finally
WSACleanup;
//注意要释放资源，无论有否异常
end;
except
memo1.lines.add('无法得到该IP地址对应的计算机名！');
end;
end;
end.给分我吧![]

接受答案了.