"automatisch" Prüfen kannst du es nicht, du kannst es dir höchstens in eigenen Variablen merken und dann auswerten.
Delphi-Quellcode:
gemacht := false;
try
...
gemacht := Machen;
...
finally
if gemacht then Rückgängig;
end;
Delphi-Quellcode:
gemacht := false;
try
...
Machen;
gemacht := true;
...
finally
if gemacht then Rückgängig;
end;
Das funktioniert so auch schon seit vielen Jahren sehr gut, bei mir.