Solicitud: código de muestra de interacción servidor VB + cliente SOCKET

Código fuente del cliente (uClientMain.pas): la unidad uClientMain; la interfaz utiliza Windows, Mensajes, SysUtils, Clases, Gráficos, Controles, Formularios, Diálogos, ScktComp, ComCtrls, ToolWin, ExtCtrls, StdCtrls, Buttons const; SocketHost = '172.16.1.6'; // Tipo de dirección del lado del servidor TfrmClientMain = class(TForm) ControlBar1: TControlBar1: TToolBar; tbConnected: TToolButton: TClientSocket; : TEdit; Memo1: TMemo StatusBar: TStatusBar; btnSend: TBitBtn; procedimiento tbConnectedClick (Remitente: TObject); procedimiento tbSendClick (Remitente: TObject); ; procedimiento tbCloseClick(Remitente: TObject); procedimiento FormShow(Remitente: TObject); procedimiento ClientSocketConnect(Remitente: TObject; Socket: TCustomWinSocket); procedimiento ClientSocketConnecting(Remitente: TObject; Socket: TCustomWinSocket); TCustomWinSocket)); procedimiento FormClose(Remitente: TObject; var Acción: TCloseAction); procedimiento ClientSocketError(Remitente: TObject; Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Entero privado público;