try...except - Manuell in except springen

[Yheeky]

Mhmm, also ich weiss noch nicht so recht, wie ich das anstellen soll. Hier mal mit Codeausschnitt:

Delphi-Quellcode:

try
  if Form1.Label1.Caption <> 'Administrator' then
  // Exception werfen

  // Hier erfolgt die eigentliche Verarbeitung, weswegen ich zur try...except
  // gegriffen habe

except
  ShowMessage('Vorgang nicht erfolgreich');
end;