如何调用这个函数啊？？？

Question

{=================================================================
  功  能: 返回本机的局域网Ip地址
  参  数: 无
  返回值: 成功:  True, 并填充LocalIp   失败:  False=================================================================}
function NetGetLocalIp(var LocalIp: string): Boolean;
var
    HostEnt: PHostEnt;
    Ip: string;
    addr: pchar;
    Buffer: array [0..63] of char;
    GInitData: TWSADATA;
begin
  Result := False;
  try
    WSAStartup(2, GInitData);
    GetHostName(Buffer, SizeOf(Buffer));
    HostEnt := GetHostByName(buffer);
    if HostEnt = nil then Exit;
    addr := HostEnt^.h_addr_list^;
    ip := Format('%d.%d.%d.%d', [byte(addr [0]),
          byte (addr [1]), byte (addr [2]), byte (addr [3])]);
    LocalIp := Ip;
    Result := True;
  finally
    WSACleanup;
  end;
end;

Answer 1

procedure Invoker();
var
  ip: String;
begin
  if NetGetLocalIp(ip) then
  begin
    ShowMessage(ip); // 显示ip
  end
  else begin
    raise Exception.Create('获取ip时出错！');
  end;
end;

Answer 2

uses中加入WinSock，其余同1楼