Try - except - finally

[Mavarik]

Wie wär es mit

Delphi-Quellcode:

result := true;
try
  A := TFoo.Create;
  try
    ...
    if bla then
      Exit;     
    ...
  finally
    A.Free;
  end;
except
  result := false;
end;

Mavarik