[MaxN]

Код:

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin

for i:=0 to ServerSocket1.Socket.ActiveConnections - 1 do
begin
ServerSocket1.Socket.Connections[i].SendText('HTTP/1.1 200 OK'+#$0D+#$0A);
ServerSocket1.Socket.Connections[i].SendText('Server: MyServer'+#$0A);
ServerSocket1.Socket.Connections[i].SendText('Content-type: text/html'+#$0A);
//ServerSocket1.Socket.Connections[i].SendText('Accept-Ranges: bytes'#$0A);
s := IntToStr(Length(Memo1.Lines.Text));
ServerSocket1.Socket.Connections[i].SendText('Content-Length: '+ s +#$0A);
ServerSocket1.Socket.Connections[i].SendText('Connection: close'+#$0A+#$0A);
//ServerSocket1.Socket.Connections[i].SendText('Connection: keep-alive'+#$0A+#$0A);

for j:=0 to Memo1.Lines.Count-1 do
ServerSocket1.Socket.Connections[i].SendText(Memo1.Lines[j]);
ServerSocket1.Socket.Connections[i].Close;

end;

Админ: Пользуемся тегами для оформления кода!

Т.е. при любом запросе выдаем клиенту это. В Memo1 тот HTML-код который я писал выше. В итоге выводит только "Hello" без выполнения JS.