[Quiz] welcher Exception Handler wird ausgeführt?

[mjustin]

Und schon wieder ein Quiz zum Thema Exceptions. Gegeben sei dieser Quelltext:

Delphi-Quellcode:

program FunWithDelphi;
 
{$APPTYPE CONSOLE}
 
uses
  Controls, SysUtils;
 
begin
  try
    raise TMouse.Create;
  except
    on E:Exception do
    begin
      Writeln(E.Classname, ': E is Exception');
    end;
    on E:TObject do
    begin
      Writeln(E.Classname, ': E is TObject');
    end;
    on E:TMouse do
    begin
      Writeln(E.Classname, ': E is TMouse');
    end;
  end;
  ReadLn;
end.

Was wird geschehen?

• das Programm gibt “TMouse: E is Exception” aus
• das Programm gibt “TMouse: E is TObject” aus
• das Programm gibt “TMouse: E is TMouse” aus
• der Compiler stoppt mit einer Fehlermeldung
• das Programm endet mit einem Laufzeitfehler

Wer es es richtig errät, darf natürlich hier posten was geschieht (und warum). Wer es nicht errät, drückt F5 im Browser bis die Antwort erscheint