Как связать условие case с чекбоксами

[artemavd]

Che Burashka, ошибку обработать можно так:

var
 i:integer;
...
try 
//ваш код
except
 on EConvertError do
   i:=1;
end;

[s.Creator]

А не проще?

  i := IntToStrDef(str,1);

[artemavd]

А не проще?

Если этот вопрос мне, то отвечаю, что в моем случае выражение i:=1 ничего не значит и это присваивание будет просто выполнятся вместо возникновения ошибки.