SpinEdit vs Try Except непредусмотреная ошибка

[ArtGrek]

если удалить из SpinEdit все и передать фокус дугому компоненту он выдает ошибку, почему???
во время ошибки показывает на ету(1) строку из модуля
причем если иду построчно, то с етои строки перепрыгивает как ни странно в функцию TSpinEdit.GetValue
вот интересно почему написана одна функция CheckValue, а отладчик проверяет другую GetValue
и почему try except не срабатывает?

procedure TSpinEdit.CMExit(var Message: TCMExit);
begin
  inherited;
  if CheckValue (Value) <> Value then // 1 
    SetValue (Value);
end;

function TSpinEdit.GetValue: LongInt;
begin
  try
    Result := StrToInt (Text); // error 
  except
    Result := FMinValue;
  end;
end;

procedure TSpinEdit.SetValue (NewValue: LongInt);
begin
  Text := IntToStr (CheckValue (NewValue));
end;

function TSpinEdit.CheckValue (NewValue: LongInt): LongInt;
begin
  Result := NewValue;
  if (FMaxValue <> FMinValue) then
  begin
    if NewValue < FMinValue then
      Result := FMinValue
    else if NewValue > FMaxValue then
      Result := FMaxValue;
  end;
end;

вот весь модуль спин кому интересно, там не много

[Аватар]

Не вдавался в подробности почему выдает, но выдает только при запуске из дельфей (как и остальные ошибки отловленные в Try)

[ArtGrek]

только при запуске из дельфей

тоесть ета функция вообше не работает?
вот, здесь тоже ошибка, и мое сообшение не выводит

try
  SpinEdit1.Value := StrToInt(Edit1.Text);
except
  ShowMessage('ne polychilos');
end;

а что делать?

[Hacker19_90]

тоесть ета функция вообше не работает?

Ну почему не работает? Работает! Просто если, как вам уже сказали, запускать программу из делфи, то try exept finally НЕОБРАБАТЫВАЕТСЯ!
Просто сделайте ехешник запустите и всё должно работать!

[ArtGrek]

мдааа
все работает как надо, если запустить ехе
а проблему с Try никак нельзя решить?

[Пепел Феникса]

отладка она и в африке отладка.
жмите Continue или же в настройках отладчика отключите показ исключений.

[ArtGrek]

Сообщение от Пепел Феникса

отладка она и в африке отладка.
жмите Continue или же в настройках отладчика отключите показ исключений.

не знал етого, а так все верно, если нажать продолжить, всем спасибо

[chertovich]

Еще, запустить программу не из-под отладки можно нажав Ctrl+Shifta+F9
Работает в новых версиях

[xexxex]

Сообщение от ArtGrek

мдааа
все работает как надо, если запустить ехе
а проблему с Try никак нельзя решить?

Можно сделать замену

  try
    Result := StrToInt (Text); // error 
  except
    Result := FMinValue;
  end;

на

  Result := StrToIntDef(Text, FMinValue);