关于socket的 小弟我用clentclent怎样传输字符串

关于socket的 我用clentclent怎样传输字符串
ServerSocket的代码
Unit   main;

Interface

Uses
    Windows,   SysUtils,   Messages,   Classes,   Forms,   ScktComp,   Controls,   StdCtrls,
    Menus,   Mask,   Spin,   ComCtrls,   ExtCtrls;

Const
    CM_IncCount   =   WM_USER   +   1;

Type
    TForm1   =   Class(TForm)
        ServerSocket:   TServerSocket;
        MainMenu:   TMainMenu;
        File1:   TMenuItem;
        ActiveItem:   TMenuItem;
        N1:   TMenuItem;
        Exit1:   TMenuItem;
        Panel1:   TPanel;
        Label1:   TLabel;
        CacheEdit:   TSpinEdit;
        Label2:   TLabel;
        PortEdit:   TSpinEdit;
        Label3:   TLabel;
        ThreadCount:   TEdit;
        Panel2:   TPanel;
        ListBox1:   TListBox;
        Panel3:   TPanel;
        StatusBar1:   TStatusBar;
        CharCount:   TLabel;
        Memo1:   TMemo;
        Procedure   ServerSocketGetThread(Sender:   TObject;
            ClientSocket:   TServerClientWinSocket;
            Var   SocketThread:   TServerClientThread);
        Procedure   FormCreate(Sender:   TObject);
        Procedure   FormClose(Sender:   TObject;   Var   Action:   TCloseAction);
        Procedure   Exit1Click(Sender:   TObject);
        Procedure   PortEditChange(Sender:   TObject);
        Procedure   ActiveItemClick(Sender:   TObject);
        Procedure   ServerSocketThreadEnd(Sender:   TObject;
            Thread:   TServerClientThread);
        Procedure   ServerSocketThreadStart(Sender:   TObject;
            Thread:   TServerClientThread);
        Procedure   CacheEditChange(Sender:   TObject);
    protected
        Procedure   CMIncCount(Var   Msg:   TMessage);   message   CM_IncCount;
    public
    End;

{   TFileServerThread   }

    TFileServerThread   =   Class(TServerClientThread)
    public
        Procedure   ClientExecute;   override;
    End;

Var
    Form1:   TForm1;

Implementation

uses   main;

{$R   *.DFM}

{   TFileServerThread   }

Procedure   TFileServerThread.ClientExecute;
Var
    Data:   Array[0..1023]   Of   char;
    RecText:   String;
    SocketStream:   TWinSocketStream;
Begin
    While   Not   Terminated   And   ClientSocket.Connected   Do