Czemu to nie dzila?

Witam!

napisalem cos takiego

procedure TForm1.Timer1Timer(Sender: TObject);
var
czas : Integer;
begin
if (czas > 10000) then
czas := 0;
czas := czas + 1;

Edit1.Text := inttostr(Czas);

end;

I w polu Edit jeden nie zwieksza sie wartosc co sekunde, tylko co sekunde jest wpisywana jedynka. (Moze sie myle i nie na tym poleka Timer, jezeli tak jest to prosze mi wyjasnic na czym on polega i jak usprawnic ten przyklad)

co do pytania (tematu)
pewnie cos zle zrobiles

// np. deklaracje zmiennej czas o 2 linijki za nisko [mf]