[lmikle]

Если думать совсем не хочется, то так:

Код:

procedure TMyForm.Button2Click(Sender : TObject);
begin
  Try
     // Здесь твоя логика
  Except
    On E : Exception Do
       MessageDlg('Произошла страшная ошибка!!!',mtError,[mbOK],0);
  End;
end;

Еще можно в секции Except .. End воспользоваться переменной E, которая есть экземпляр класса EException. В частности, в E.Message можно увидеть тот текст, который выдает твой код в оригинале.

Если думать все-таки хочется, то анализируй сначала исходные данные и выводи причину, почему они не могут быть обработаны перед тем, как запускать вычисления.