高手请进（一个非常easy的问题）(5分)

还是老问题：（关于winsocket api 的 注：基于tcp/ip协议的client端 ）请帮忙补充一
下接收server端的数据接收部分，非常感谢！！！
var
xl_socket:Tsocket;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
socket的初始化，创建，连接（已搞定）
end;

procedure TForm1.Button2Click(Sender: TObject);
socket发送数据（已搞定）
end;

**********************************************
** 请补充数据接收部分和 **
**********************************************
** 如何得到server断开的消息 **
**********************************************

程序搞定的话，可发给解答者相关源码
（高手如慷慨大方的话，发个winsocket api写的client和server那就感激不尽啦）

大富翁上的高手：这对你们来说可是小菜一碟啊，为什么就不站出来为人民排优解难呢？
沉默未毕是金啊，帮帮忙吧，礼轻情义重，患难见真情，虾哥虾姐发扬一下雷锋精神吧。

你看如何？
是否我理解错了？

多人接受答案了。