// Client1: TIdTCPClient; //****TCP/IP元件
procedure TForm1.Timer1Timer(Sender: TObject);
var
  x,y:string;
begin
   //@0000F50000
      y:='@' Edit1.Text Chr(13);
      Client1.Write(y);    //寫入字串
   Client1.ReadFromStack(False,1,False); //判斷是否有回應資料如果沒有則不讀取傳回數值
   While Client1.InputBuffer.Size>0 do
    Begin
      x:=Client1.ReadString(12); //讀取tcp/ip傳回的數值
      Memo1.Lines.Add(x);        End;
end;
 

 
    k:=Client1.ReadLn(#13); // ReadLn(#13) 讀取到 #13(0D)就把資料分開
    i:=Length(k); //偵測資料長度
    j:=IntToStr(i);
    Memo3.Lines.Add(j);
    Memo2.Lines.Add(k);