Zeig er dir etwa seiten an, so wie dein Sourse aussieht dürfte dir auch keine
html-seite angezeigt werden. Du öffnest zwar eine Datei in einem Stream mit
Stream := TfileStream.Create(DocumentRoot + ARequestInfo.Document, fmOpenRead or fmShareDenyWrite);
aber du lieferst nirgends den String zurück an den Client (z.B.: per AResponseInfo.ResponseText)
desweiteren rufst du nirgends Stream.Free auf. Was bringt es dir eine datei per stream zu öffnen wenn du dann nix damit machst (auslesen, etc.)
Anstelle der Code-Tags könntest du auch die "Delphi-Code" Tags verwenden. Außerdem wäre eine ordentliche Formatierung (einrückung) sehr zu empfehlen