请教我这段用indy的tcpserver控件写的服务器程序对吗？？？

客户端是用linux c写的，现在的问题是客户端能连上服务器，但不能通讯！
  我用单步调试时程序运行到A的时候就跳到B了，这是什么原因呢？ 请各位朋友指导啊。。 多谢 新年快乐 ^_^  程序如下：
procedure TMainForm.warn_serverExecute(AThread: TIdPeerThread);
var
  Client : TSimpleClient;
  revmsg: array[1..2048] of Char;  //接收数据包用的零时数组
  mcumsg,feedback: string;  //mcumsg是收到的数据包， feedback是返回的数据包
  msglen :integer;  //收到的数据的长度
begin
  fillchar(revmsg,sizeof(revmsg),'$');
  AThread.Connection.Readbuffer(revmsg,2048);  //******** A **********  msglen:= pos('$',revmsg);  //
  if msglen=0 then
    msglen:=2048
  else
    msglen:=msglen-1;  mcumsg:=copy(revmsg,0,msglen);   // 
  memo1.Lines.Add(mcumsg);  feedback:=parsemcumsg(mcumsg);
  if (feedback<>'err') then  //
    begin
       AThread.Connection.WriteLn(feedback);
    end;  AThread.Connection.Disconnect;   //******** B **********end;