با سلام خدمت دوستان
من تو برنامم از IdTCPClient1 استفاده کرده ام و برای اینکه بتونم با اون سند و رسیو داشته باشم از دستور زیر استقاده کردم
type

 TReadingThread = class(TThread)



 protected

  FConn: TIdTCPConnection;

  procedure Execute; override;

 public

  constructor Create(ACon: TIdTCPConnection); reintroduce;

end;

.

.

.



var

  Form1: TForm1;

  ReadingThread : TReadingThread;



implementation



{$R *.dfm}



constructor TReadingThread.Create(ACon: TIdTCPConnection);

begin

 FConn := ACon;

 inherited Create(False);

end;



procedure TReadingThread.Execute;

var s : string;

begin

while not Terminated do

begin

//FConn.ReadFromStack(True, 1000, False);



//if FConn.InputBuffer.Size > 0 then

//begin

 s := FConn.CurrentReadBuffer;

 if Length(S) > 0 then

Form1.Memo1.Lines.Add(s);

//end;

end;

end;

حالا برای ارسال پیام هم از دستور IdTCPClient.Write(Text); استفاده میکنم ولی برنامم خطای عنوان شده را میده و کلا هنگ میشه
دوستان کسی میتونه راهنمائیم کنه؟