Problem z komunikatami

Mam mały problem z komunikatami.
Zabezpieczam aplikację przd błędami tak:

protected
procedure MyOnE(Sender: TObject; E:Exception);

procedure TForm1.MyOnE(Sender: TObject; E:Exception);
begin
ListBox1.items.add(E.Message);
//Application.ShowException(E);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnException:=MyOnE;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
StrToInt(Caption);
end;

Ok wszystko gra,ale nie wiem jak zabezpieczyć wyświetlanie komunikatów typu ShowMessage i MessageBox.
A mianowicie chodzi mi o wpisanie informacji do komponentu ListBox1 tak jak w kodzie.(nie wyświetlając komunikatu tylko zapisujc go do ListBox-a)

może try..except:

try
ShowMessage();
except
on E:Exception do MyOnE(Self, E);
end;

Chodzi mi dla całej aplikacji ja zablokować showmessage i zapisać do LB.

Komunikat sie nie pojawi, jeśli ustawisz odpowiednią opcję w IDE, albo uruchomisz program poza IDE Delphi.

Ale komunikat ma się nie wyświetlać I informacja w komunikacie ma być zapisywana do ListBox'a.

Tylko o to mi chodzi.Tak jak w moim przykładzie tylko w moim jest dla wyjątków błędu,a nie dla wszystkich.