如何得到主机ip地址？

procedure TForm1.Button3Click(Sender: TObject);
var
p : PHostEnt;
s : array[0..128] of char;
p2 : pchar;
begin{得到计算机名称}
  GetHostName(@s,128);
  p:=GetHostByName(@s);
  Memo1.Lines.Add('HOSTNAME:'+s);
  Memo1.Lines.Add(p^.h_Name);{得到机器IP地址}
  p2 := iNet_ntoa(PInAddr(p^.h_addr_list^)^);
  Memo1.Lines.Add(p2);
end;
抄来的