ارسال دستور به سرور و دریافت پاسخ با indytcpclient

برای ارسال و دریافت اطلاعات از طریق indytcpclient به صورت زیر عمل میکنیم . port , host  را تنظیم میکنیم  و من دستور مورد نظر را در ادیت وارد کردم و ارسال میکنم  و پاسخ را با دستور readchar دریافت کردم

var ch:char;

    str:string;

begin

      IdTCPClient1.host:='192.168.1.25';

      IdTCPClient1.port:=8080;

      IdTCPClient1.Connect(300);

      IdTCPClient1.WriteLn(edt1.Text);

      ch:=IdTCPClient1.ReadChar;

      while ch<>'$' do

      begin

         str:=str+ch;

         ch:=IdTCPClient1.ReadChar;

      end;

      mmo1.Lines.Add(str);

      IdTCPClient1.Disconnect();

و یا از کد زیر استفاده شود

var

    str:string;

begin

      IdTCPClient1.host:='192.168.1.168';

      IdTCPClient1.port:=23768;

      IdTCPClient1.Connect(300);

      IdTCPClient1.Write(edit1.Text);

      Sleep(1000);

      str:=IdTCPClient1.CurrentReadBuffer() ;

       Memo1.Lines.Add(str);

      IdTCPClient1.Disconnect();

end;