[Lazarus] TTimer simple issue

[noreply at z505.com]

When building a simple TTimer demo I cannot seem to get it working

Any idea what the problem could be if you paste this code into your form 
with a memo?

var
   TimeSpent: integer;

procedure TForm2.Button1Click(Sender: TObject);
var
   i, answer: integer;
begin
   Timer1.enabled := false;
   TimeSpent := 0;
   Timer1.Enabled := true;
   Timer1.interval := 1;
   for i := 0 to 999999999 do
   begin
     answer := i * answer;
   end;

   memo1.lines.add('time spent: ' + inttostr(timespent));

end;

procedure TForm2.Timer1Timer(Sender: TObject);
begin
   inc(TimeSpent);
end;

It says
time spent: 0
Whereas the time should be a lot.

Regards,
Lars