Danke!
Scheinbar wird es von TApplication auch nicht anders geregelt:
Delphi-Quellcode:
procedure TApplication.ShowException(E:
Exception);
var
Msg:
string;
begin
Msg := E.
Message;
if (Msg <> '
')
and (AnsiLastChar(Msg) > '
.')
then Msg := Msg + '
.';
MessageBox(PChar(Msg), PChar(GetTitle), MB_OK + MB_ICONSTOP);
end;