لطفا در مورد این کد نظر بدین

[eshaghrahimy]

procedure TClientFrmMain.CBClientActiveClick(Sender: TObject);
begin
if CBClientActive.Checked then
begin
try
Client.Connect(10000); // in Indy < 8.1 leave the parameter away

ClientHandleThread := TClientHandleThread.Create(True);
ClientHandleThread.FreeOnTerminate:=True;
ClientHandleThread.Resume;
except
on E: Exception do MessageDlg ('Error while connecting:'+#13+E.Message, mtError, [mbOk], 0);
end;
end
else
begin
ClientHandleThread.Terminate;
Client.Disconnect;
end;

ButtonSend.Enabled := Client.Connected;
CBClientActive.Checked := Client.Connected;
end;

لطفا توضیح بدین در مورد client handel thrade

[vcldeveloper]

ظاهر شی ClientHandleThread، که در کد بالا ازش استفاده شده، از کلاس TThread دلفی مشتق شده. در واقع در کد بالا، پس از برقراری ارتباط یک Thread جدید ایجاد شده تا ارسال/دریافت داده ها از طریق آن Thread انجام شود. کد مربوط به عملیات Thread مربوطه باید در ClientHandleThread.Execute وجود داشته باشد، که شما کد آن را اینجا قرار ندادید.

[eshaghrahimy]

خیلی ممنون از راهنمایی شما