Delphi TCPServer将html发送到浏览器

我正在做一个项目，在这个项目中，我必须实现一个简单的web服务器来显示欢迎页面。因此，我在表单上放置了一个TTCP服务器，我可以成功地将纯文本发送到与服务器交互的浏览器。但是如何发送HTML？

我试过了，但没用

ClientSocket.Sendln('HTTP/1.0 200 OK');
ClientSocket.Sendln('MIME-version: 1.0');
ClientSocket.Sendln('Content-type: text/html');
ClientSocket.Sendln('Content-Length:'+IntToStr(Length(webpage)+10));
ClientSocket.Sendln(AnsiString(Format(webpage, [va, ma, mi, timexx])));

---

有什么想法吗？无论如何，我不想使用其他组件。

您需要在最后一个页眉之后添加一个CRLF，以便浏览器可以确定页眉的结尾和正文的开头。

您确定长度计算吗？（HTML）字符串是在将其长度发送到客户端后构造的。我删除了它是一个错误的值。说得好！