[MMM_Corp]

во первых!

Код:

try
//............
Except
  On e:exception do ShowMessage('ошибка'+e.message);
end;

иначе вообще непонятно вы хотите одним методом обработать целый класс ошибок? нужно точно знать что за ошибка и обрабатывать ее отдельно (конечно если это нужно)