Frage zu Try..Finally/Except

[Pseudemys Nelsoni]

hoi, ich hab ne frage, und zwar:

Delphi-Quellcode:

procedure bla;
var
  i: integer;
  sl: TStringList;
begin
  sl := TStringList.Create;
  with sl do
  begin
    add('A');
    add('B'); 
    add('C');
  end;  
  for i := 0 to 3 do
  begin
    Try
      Try
        idHTTP1.Post('www.bla.de', sl);
      except
        ShowMessage('Can''t connect.');
      end;
    finally
    //jo hier brauch ich garnix O_o
    end;
  end;
  sl.free    <<<< wie soll ich die free'en, das finally gilt ja nur innerhalb des innersten blocks?
end;