1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:

type
  EPassWord = class(Exception)
    public
      constructor Create(const PW: String); reintroduce;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

constructor EPassWord.Create(const PW: String);
resourcestring
  rsBadPW = 'Das Passwort %s ist falsch';
begin
  inherited Create(Format(rsBadPW, [PW]));
end;

procedure CheckPW(const PW: String);
begin
  if PW <> 'Hello' then
    raise EPassWord.Create(PW);
end;

procedure TForm1.Button1Click(Sender: TObject);
resourcestring
  rsWrongPW = 'Mist, falsch';
begin
  try
    CheckPW(Edit1.Text);
  except
    on E: EPassWord do ShowMessage(rsWrongPW);
    on E: Exception do ShowMessage(E.Message);
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

procedure TMyAppForm.DoHandleException(Sender: TObject; E: Exception); 
var 
   IsContinuable: Boolean; 
   Msg: TStrings; 
begin 
   IsContinuable := not (E is EAccessViolation); 

   Msg := TStringList.Create(); 
   try 
      if IsContinuable then 
         Msg.Add('The program raised continuable exception and still can continue operating.') 
      else 
         Msg.Add('The program raised non-continuable exception and will be closed.'); 

      Msg.Add(E.Message); 
   finally 
      Msg.Free(); 
   end; 

   if not IsContinuable then 
      Halt; 
end;