Ich habe einen TCPServer als HTTP server und möchte daten aus einem POST JSON Data

[joehd]

Hallo also nachdem ich doch so nett gebeten wurde das mit INDY zu machen habe ich jetzt mal die idHTTPServer genutzt.
Alles von neuem. Ich habe mir einige Beispiele angeschaut aber schon beim empfangenen Option Command stellt sich die Frage wie gebe ich den Send zurück.

Aresponseinfo.ResponseText := 'HTTP/1.0 200 OK';

klappt nicht und ich habe schon einiges Probiert

Delphi-Quellcode:

procedure TForm1.IdHTTPServer1CommandOther(AContext: TIdContext;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
begin
 // arequestinfo.URI angeforderte Seite
 // arequestinfo.Command komando welches gegeben wurde get Post ....
 // arequestinfo.Document Seiteninfoi nach der Domain
 // arequestinfo.Host
 // arequestinfo.From aufrufende Adresse

 memo1.Lines.Add('CommandGet: URI: ' + arequestinfo.URI  + ' | Command:  '+ arequestinfo.Command + ' | PostStream: ' + mystreamtostring(arequestinfo.PostStream)) ;
 memo1.Lines.Add('Document: ' + arequestinfo.Document + ' | Params: ' + arequestinfo.Params.Text  + ' | Host: ' + arequestinfo.Host + ' | From: ' + arequestinfo.From );
 memo1.Lines.Add(' Konnektion: ' + arequestinfo.Connection    );

if arequestinfo.Command = 'OPTIONS' then
Begin // Abfrage des WEB Servers was kannst du
  Aresponseinfo.ResponseText := 'HTTP/1.0 200 OK';
  memo1.Lines.Add('Options : ' +'HTTP/1.0 200 OK');
End;

end;