Проверьте код

begin
try
a:=strtofloat (edit1.text);
b:=strtofloat (edit1.text);
c=ab;
form1.Edit3.Text:=floattostr(c)
except
showmessage ('Ошибка! Деление на ноль!');
end

  Try
    ... // защищаемый блок
  Except
    // здесь мы можем обрабатывать исключения:
    on EDivByZero do // это перехватывает только EDivByZero:
      begin
      ShowMessage('Ошибка! Деление на ноль!');
      end;
    on EZeroDivide do // это перехватывает только EZeroDivide:
      begin
      ShowMessage('Ошибка! Деление на ноль!');
      end;
    on EMathError do // это перехватывает только EMathError:
      begin
      ShowMessage('Ошибка! Ошибка с плавающей запятой!');
      end;
    on E: Exception do // а это перехватывает все остальные исключения:
      begin
      ShowMessage('Возникло непредусмотренное исключение "'+E.ClassName+'" с сообщением: "'+E.Message+'"');
      // raise; // Заново возбуждаем тоже самое исключение для последующей обработки (необязательно)
      end;
  end;