Exception wird nicht angezeigt

[mirage228]

Hi,

mein Testcode funktioniert ohne Beanstandungen:

Delphi-Quellcode:

type
  ENewException = class(Exception) end;

procedure RaiseError(const msg: string);
begin
  raise ENewException.Create(Msg);
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  Obj: TStringList;
begin
  try
    Obj := nil;
    Obj.Text := 'neu';
  except
    RaiseError('schwära fäla');
  end;
end;

mfG
mirage228