（死亡历程）Delphi7 自带的控件 IdTCPClient，IdTCPServer 客户端发送给服务端，服务端转发给其它客户端

客户端


  private
    { Private declarations }
    FThread: TThread;
  public
    { Public declarations }
    iFileHandle:integer;
    i: integer;
    host,port,qm:string;
    sFile:TFileStream;
    F : Textfile;
    str,nbzy_bh:string;
  end;


  TReadThread = class(TThread)
  private
    FClient: TIdTCPClient;
    FMessage,nbzy_qm: string;
    FForm: TFormLjf2;


    procedure UpdateForm;
  protected
    procedure Execute; override;
  public
    constructor Create(AForm: TFormLjf2; qm: string; AClient: TIdTCPClient);
  end;


var
  FormLjf2: TFormLjf2;


implementation


uses ljf999;


{$R *.dfm}


procedure TFormLjf2.FormShow(Sender: TObject);
var
  i,j:Integer;
begin
  //得到要发送的客户端IP
  i:=pos(')',Self.Caption); //查找分隔符
  host:=copy(Self.Caption,i+1,Length(Self.Caption)-i);


  //连接到服务器
  IdTCPClient2.Host:=FormLjf999.host;
  IdTCPClient2.Port:=StrToInt(FormLjf999.port);


  //得到用户编号
  str:=Self.Caption;
  i:=pos('(',str);
  j:=pos(')',str);
  nbzy_bh:=copy(str,i+1,j-(i+1));
  qm:=copy(str,1,i-1);;


  Memo1.SetFocus;