try except Frage

[haentschman]

Guten Abend...

folgendermaßen geändert.

Delphi-Quellcode:

UDateiListe.Add(Ziel);
  try
    fStream:= TFileStream.Create(Ziel,fmCreate or fmShareDenyNone);
    try
      idHTTP1.Get(Quelle, fStream);
    except
      MessageDlg('Update fehlgeschlagen...(Datei herunterladen)',mtError,[mbOK],0);
      for A := 0 to UDateiListe.Count - 1 do
        begin
          DeleteFile(UDateiliste.Strings[A]);
        end;
      FUMain.Close;
    end;
  finally
    fStream.Free;
  end;

except und finally vertauscht, Application.Terminate (warum auch immer ich das so gemacht habe) gegen Close getauscht ...

Danke an alle.