´ó¼Ò°ïæ·­ÒëÒ»ÏÂÕâ¶ÎDELPHI´úÂë

unit ClientFrmMainUnit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, StdCtrls,
  GlobalUnit, ExtCtrls;

type
  TClientFrmMain = class(TForm)
    CBClientActive: TCheckBox;
    IncomingMessages: TMemo;
    Label1: TLabel;
    Client: TIdTCPClient;
    Label2: TLabel;
    EditCommand: TComboBox;
    Label3: TLabel;
    EditMessage: TEdit;
    Label4: TLabel;
    EditRecipient: TEdit;
    ButtonSend: TButton;
    edtHost: TEdit;
    Label5: TLabel;
    Timer1: TTimer;
    Button1: TButton;
    Button2: TButton;
    procedure CBClientActiveClick(Sender: TObject);
    procedure ButtonSendClick(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
  public
  end;

  TClientHandleThread = class(TThread)
  private
    CB: TCommBlock;
  &