Response-Daten eines TIdHTTP.Post in ein TXMLDocument-Objekt

[Hedge]

Ich hole mir via Post XML-Daten von einem Server, aber weiß nicht wie ich diese dann in ein TXMLDocument bringen kann.

Es gibt zwar einige Beiträge zu dem Thema aber so richtig weitergeholfen hat mir Keiner.
Folgender Code bringt immer nur die Fehlermeldung "Kein aktives Dokument".

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  data,response: TStringList;
begin
  data := TStringList.Create;
  response := TStringList.Create;
  try
    data.Values['value1'] := 'abc';
    IdHttp1.Request.UserAgent:='Mozilla/4.0';
    response.Add(IdHTTP1.Post('http://www.homepage.com/test.php', data));
    XMLDocument1.Active:=true;
    XMLDocument1.XML:=response;
    Memo1.Lines.Text :=  XMLDocument1.ChildNodes['test2'].Text;
  finally
    data.Free;
    response.Free;
  end;
end;