Datei Download mit SaveDialog

[Gehstock]

Delphi-Quellcode:

function TForm2.Download(URL : String):boolean ;
var
lStream: TFileStream;
begin
 if SaveDialog1.Execute  then
  begin
   try
    lStream:=TFileStream.Create(SaveDialog1.Filename, fmCreate or fmShareDenyNone);
   try
    idHTTP1.Get(URL, lStream);
   finally
    lStream.Free;
     end;
    finally
   end;
   end;
   end;

führt zu "Forbidden HTML irgendwas" der link (URL) funzt