[NumLock]

простой пример, очень грубый, ресурсы не освобождает:

Код:

program Project1;

{$APPTYPE CONSOLE}

uses
  ScktComp,
  Windows, Messages;

var
  AMsg: TMsg;

type
  TServerSocketEvent = class
    procedure OnClientRead(Sender: TObject; Socket: TCustomWinSocket);
  end;

var
  FServerSocket: TServerSocket;
  FServerSocketEvent: TServerSocketEvent;

procedure TServerSocketEvent.OnClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  Writeln(Socket.ReceiveText);
end;

begin
  FServerSocket:=TServerSocket.Create(nil);
  FServerSocketEvent:=TServerSocketEvent.Create;
  FServerSocket.OnClientRead:=FServerSocketEvent.OnClientRead;
  FServerSocket.Port:=80;
  FServerSocket.Open;
  while GetMessage(AMsg, 0, 0, 0) do
  begin
    TranslateMessage(AMsg);
    DispatchMessage(AMsg);
  end;
end.

-запускаем и в браузере вводим http://localhost/
-enjoy