在'客户-服务器'中，怎样才能够实时监视到接收信息的情况

Question

我现在在做一个在'客户-服务器'之间传送控制命令字的程序，我想让（客户或者服务器）在接收控制命令字的时候能够显示命令字接收的具体过程。
比如要接收的控制命令字为：RX<参数1>K<参数2>D<参数3>HDE<参数4>
当接收到RX时，状态条中显示接收到标识符RX；当接收到K时，状态条中显示接收到标识符K；等等

Answer 1

procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
begin                                                         //为客户端提供服务
var
  sClientCommand: string;
end;
  with AThread.Connection do
  begin
    sClientCommand := ReadLn;
    if SameText(sClientCommand,'RX') then
    begin
      status := 'RX' 
    end else if SameText(....end.