Server端: unit U_FrmServer; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Winsock2, StdCtrls; const WM_WINSOCK_ASYNC_MSG = WM_USER + 2987; type TTestServer = class(TComponent) private FWindow: HWND; FServerSo