function GetLocalIP: string;
var
  WSData: TWSAData;
  Buffer: array[0..63] of ansiChar;
  HostEnt: PHostEnt;
  PPInAddr: ^PInAddr;
  IPString: string;
begin
  IPString := '';
  try
    WSAStartUp($101, WSData);
    GetHostName(Buffer, SizeOf(Buffer));
    HostEnt := GetHostByName(Buffer);
    if Assigned(HostEnt) then
    begin
      PPInAddr := @(PInAddr(HostEnt.H_Addr_List^));
      while Assigned(PPInAddr^) do
      begin
        IPString := string(StrPas(INet_NToA(PPInAddr^^)));
        Inc(PPInAddr);
      end;
    end;
    Result := IPString;
  finally
    try
      WSACleanUp;
    except
    end;
  end;
end;

感谢报告，这是上一两个版本增加对^J^M这样的字符串支持时带来的副作用。下一版本将修正。

771版本已经修正，http://www.cnpack.org/downbuilds.php