label1.caption:=inttostr(strtoint(label1.caption)+ 1) - тут прибавляется единица не к символу, а к числу: strtoint(label1.caption) - конвертит из строкового представления в числовое, конечно если в label1.caption написано число, в противном случае - ошибка, а inttostr конвертит обратно - из числового представления в символьное
|