Variable in Stream schreiben

[SnuffMaster23]

Ich habe ein Problem mit folgendem Code:

Delphi-Quellcode:

procedure TForm1.IdHTTPServer1CommandGet(AContext: TIdContext;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
var Bufr: string;
begin
  Bufr := Edit1.Text;
  AResponseInfo.ContentStream := TMemoryStream.Create;
  AResponseInfo.ContentStream.WriteBuffer('<h1>Mein Server</h1>', 20);
  AResponseInfo.ContentStream.WriteBuffer(Bufr, Length(Bufr));
  AResponseInfo.ContentStream.WriteBuffer('
<hr />', 13);
  AResponseInfo.ContentStream.WriteBuffer(ARequestInfo.RemoteIP, Length(ARequestInfo.RemoteIP));
  AResponseInfo.WriteContent;
  AResponseInfo.ContentStream.Free;
end;

Die String-Konstanten kommen wunderbar im Browser an, Bufr und RemoteIP dagegen nicht, da krieg ich wirres Zeug das bei jedem Aufruf wechselt.

//Edit: Also IdHTTPServer hat nichts damit zu tun, es landet schon falsch im Stream wie folgende Zeile zeigt:(AResponseInfo.ContentStream as TMemoryStream).SaveToFile('test.txt');