Работа с ClientSocket и ServerSocket из консоли

[D_E_N]

Всем привет. как поработать с ClientSocket и ServerSocket из консоли правильно???
В uses добавил ScktComp но не помогает какая то ошибка. через f8 останавливается после назначения порта

 uses
  Windows,SysUtils, Classes,ScktComp;
   var
   MS: TMemoryStream;
   ServerSocket1: TServerSocket;

   begin
 serversocket1.Port:=888;
 serversocket1.Active:=true;
 serversocket1.Open;
 serversocket1.Close;
end.

Подскажите в чем проблема что не так?

[Pedro]

Надо создать экземпляр класса TServerSocket.
Сразу после begin

ServerSocket1:=TServerSocket.Create(self);

[D_E_N]

спасибо!!!!!!!!!!!!!!!!!!!!!!!!

[D_E_N]

а как обрабатывать события?

[Пепел Феникса]

написать класс методами которого прописать нужные обработчики
создать экземпляр его(не уверен что нужно)
и уже назначать эти методы...обработчикам событий

[D_E_N]

а можно примерчик? я так быстрее догоню
вот сделал что то примерное но не работает говорит [DCC Error] beta.dpr(43): E2035 Not enough actual parameters

program beta;
uses
  Windows,SysUtils, Classes,ScktComp,messages,dialogs;


   type
  TForm1 = class(Tobject)
    ServerSocket1: TServerSocket;
  procedure ServerSocket1ClientConnect(Sender: TObject;
      Socket: TCustomWinSocket);
  private
    { Private declarations }
  public
    { Public declarations }
  end;


   var
   MS: TMemoryStream;
  serversocket1:tserversocket;


procedure tform1.ServerSocket1ClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
 showmessage('123');


end;


var
  O: Tform1;
begin
  O:=Tform1.Create;
      serverSocket1.Port:=1001;
    serversocket1.Active:=true;
  try
    O.serverSocket1:=TserverSocket.Create(nil);



    O.ServerSocket1ClientConnect;

    O.serverSocket1.Open;
   // РАБОТАЕМ
  finally
    O.Free;
  end;
end.

[Unconnected]

http://forum.pascal.net.ru/index.php...EE%EA%E5%F2%FB

В конце топа пример, с обработкой событий.