try
...
except
on E: Exception do
begin
if (Pos('Любую часть текста из сообщения исключения', E.Message)>0) then
begin
...
ShowMessage('Текст сообщения');
...
end;
end;
end;