关于一个网络速度测试的问题!(50分)

刚开始学习，很多地方不明白，在看一个PING的编程代码时候，有部分代码不理解，请大家给予指点!
function TForm1.TransformAddr(const CurrInAddr: TInAddr): TInAddr;
var
sbx: char;
////声明TInAddr对象
tmpInAddr: TInAddr;
begin
//将指定的Ip地址转换为合适的格式，返回
tmpInAddr := CurrInAddr;
sbx := tmpInAddr.S_un_b.s_b1;
tmpInAddr.S_un_b.s_b1 := tmpInAddr.S_un_b.s_b4;
tmpInAddr.S_un_b.s_b4 := sbx;
sbx := tmpInAddr.S_un_b.s_b2;
tmpInAddr.S_un_b.s_b2 := tmpInAddr.S_un_b.s_b3;
tmpInAddr.S_un_b.s_b3 := sbx;
result := tmpInAddr;
end;

在这里有2个问题:
1.TInAddr是哪里来的类?
2.S_un_b.s_b4 类似这个是什么意思?
3.代码意思?

TInAddr应该是写代码的人自己定义的结构。
本段代码只是交换 tmpInAddr.S_un_b.s_b1， tmpInAddr.S_un_b.s_b4
和 tmpInAddr.S_un_b.s_b2， tmpInAddr.S_un_b.s_b3的值。