DOS接收消息的问题

Question

program test;{$APPTYPE CONSOLE}uses
  SysUtils, Winsock, ScktComp, Dialogs;type
  TApplication = class
  private
    ServerSocket1: TServerSocket;
  protected
    procedure ServerSocket1ClientRead(Sender: TObject; Socket: TCustomWinSocket);
  public
    procedure Entry;
  end;procedure TApplication.Entry;
begin
  ServerSocket1 := TServerSocket.Create(nil);
  ServerSocket1.Port := 728;
  ServerSocket1.Active := True;
  ServerSocket1.OnClientRead := ServerSocket1ClientRead;
end;procedure TApplication.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
  S: string;
begin
  S := Socket.ReceiveText;
  if S = 'a' then
    Writeln('Ok');
  //Socket.SendText('接收信息成功！');
end;begin
  with TApplication.Create do
  begin
    try
      Entry
    finally
      //Free;
    end;
  end;
  Writeln('...');
  Readln;
end.-------------------------------------------------------------他为什么不接收我发的信息？　有谁能帮我看一下．．．

Answer 1

ServerSocket1.Active := True;
  ServerSocket1.OnClientRead := ServerSocket1ClientRead;------------------>>>>>>>>>>>>>>>>>>..
  ServerSocket1.OnClientRead := ServerSocket1ClientRead;
  ServerSocket1.Active := True;

Answer 2

gzmhero(hihihi) 兄弟你好：　不好意思，上面是我一个书写错误我已经改过来了，但还是不行的。。！！！