Except-Block manuell auslösen

[DeddyH]

Spontan fällt mir da nur sowas ein:

Delphi-Quellcode:

OK := true;
try
  if not TueDies then
    OK := false
  else if not TueDas then
    OK := false
  else if not TueWasAnderes then
    OK := false;    
except
  BehandleException;
  OK := false;
end;
if not OK then
  Aufräumen;