Frage zu Try..Finally/Except

[Luckie]

Delphi-Quellcode:

procedure bla;
var
  i: integer;
  sl: TStringList;
begin
  sl := TStringList.Create;
  try  ------------------------------
    with sl do                       |
    begin                            |
      ...;                           |
    end;                             |
    for i := 0 to do                 |
    begin                            |
      try  -----------------------   |
        idHTTP:Post(...);         |  |
      except  --------------------   |
        ShowMessage('Kuckuck');   |  |
      end;  ----------------------   |
    end;                             |
  finally  --------------------------
    sl.Free;                         |
  end;  -----------------------------
end;

Nur richtig schachteln.