Zwei Objekte in einem oder zwei Try Finaly Blöcke?

[DeddyH]

Zitat von stahli:

--> oder unterdrückt finally die Fehlermeldung nicht - dann läge ich tatsächlich falsch

Einfach mal ausprobieren

Delphi-Quellcode:

procedure TFormTrallalla.ButtonBummsClick(Sender: TObject);
var
  Dings: TStringlist;
begin
  Dings := TStringlist.Create;
  try
    Dings.Add('Wuppdi');
    ShowMessage(Dings[1]);
  finally
    Dings.Free;
  end;
end;

Ohne Debugger starten und schauen, ob da eine Meldung kommt.