TTImer

Burde disse fuktioner i teorien ikke være lige hurtige:

var
  Form1: TForm;
  tal: Integer;


procedure TForm1.Form1create(Sender: TObject);
begin
  Timer1.Interval := 1;
  Timer2.Interval := 100;
  Timer1.Enabled := True;
  Timer2.Enabled := True;
end;

procedure TForm1.Timer1timer(Sender: TObject);
begin
  tal := tal+1;
  if tal = 100 then
  begin
    tal := 0;
    Label1.caption := IntToStr(StrToInt(Label1.caption)+1)
  end;
end;

procedure TForm1.Timer2timer(Sender: TObject);
begin
  Label2.caption := IntToStr(StrToInt(Label2.caption)+1)
end;

??? (Forventer forklaring)