Сокеты и консоль Опции

[Unconnected]

Привет всем.

Животрепещущий вопрос: возможно ли в консоли присвоить событию сокета (OnRead, например) свою процедуру? Например, Client.onread:=myevent;. Описать её (myevent) получается, а вот присвоить правильно - нет..

[Unconnected]

program Project1;

{$APPTYPE CONSOLE}

uses
  Windows,
  SysUtils,
  Classes,
  ScktComp,
  Graphics;

var server:TServersocket;

Procedure EVENT1(Sender: TObject; Socket: TCustomWinSocket);
begin
  writeln(socket.receivetext);
end;

begin
  server:=TServerSocket.create(nil);
  server.port:=1001;
  server.OnClientRead:=event1(); //<===здесь, во входных параметрах, определённо нужно что--то написать
  Server.ServerType:=stNonBlocking;
  server.Open;
  while server.active do sleep(100);
end.

По идее, должно быть server.OnClientRead:=event1(sender,socket);, но ведь в консоли нет понятия Sender, да?