почему не хочет увеличыватся digit2.Value?

[ZhekON]

procedure TForm1.Timer1Timer(Sender: TObject);
begin
form1.Digit1.Value:=chr(ord(digit1. Value)+1);
if digit1.Value=':' then
begin
digit1.Value:='0';
digit2.Value:=chr(ord(digit2.Value) +1);
end;

Value - типа Char;
почему не хочет увеличыватся digit2.Value???

[rpy3uH]

мистика, а digit1.Value увеличивается?
а чему равно digit2.Value в начале?

[ZhekON]

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

мистика, а digit1.Value увеличивается?
а чему равно digit2.Value в начале?

digit1.Value доходит до девяти и стоит на месте, а digit2.Value в начале равно нулю.