PHP Seite ansteuern und neue URL erhalten TIdHTTP

[Hallo_Thomas]

Das wäre meine Lösung;

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject);
begin
  try {try um Fehlermeldung zu unterdrücken}
  IdHTTP.Get ('http://www.FremdeSeite.php?code=irgendwas'); 
  except
  end;
end;

procedure TForm1.IdHTTPWorkEnd(ASender: TObject; AWorkMode: TWorkMode);
begin
Label2.Caption:=IdHTTP.Response.Location;
end;