[Ivan3635]

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

Если TEdit пуст или там не число, используй StrToIntDef.

он не пуст, но при таком использовании тоже вывалилась

вываливается даже при s:=edit1.text; s:string;