Fehlermeldung korrekt ausgeben

[martin_]

Hallo,
habe folgenden Code und möchte eine Fehlermeldung ausgeben:

Delphi-Quellcode:

   
var
  o : TObject;
begin
try
  try
    o.Create;
  except
    ShowMessage('error');
  end;
finally
  FreeAndNil(o);
end;

Im Debugger erscheinen die Debugger Exceptions. Starte ich die Exe erscheint zuerst mein ShowMessage "error" und später eine Zugriffsverletzung bei Adresse .. in Modul ..;
Wie bekomme ich die letzte Meldung weg? Da der Fehler bereits abgefangen wurde, möchte ich die Nachricht nicht anzeigen.