[danielmj]

Pongo esto aqui por que es parte de la misma aplicacion, por no abrir un hilo nuevo.
Tengo este codigo en un timer:

Hour, Min, Sec y MSec está declarados de tipo word

Código Delphi [-]
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  inc(MSec);
  If MSec = 100 then begin
     Sec := Sec + 1;
     MSec := 0;
  end;
  If Sec = 60 then begin
     Min := Min + 1;
     Sec := 0;
  end;
  If Min = 60 then begin
     Hour := Hour + 1;
     Min  := 0;
  end;
  Present := EncodeTime(Hour, Min, Sec, MSec);
  //stB.Panels.Items[4].Text:=TimetoStr(Present)+':'+inttostr(MSec);
  Label11.Caption := TimetoStr(Present)+':'+inttostr(MSec);

Y aunque funciona, tengo el problema de que los milisegundos no pasan rapido, más bien parecen segundos (ver tiempo en color rojo en el video) y es que el mismo codigo lo tengo en la version de delphi (es copiar y pegar) y si funciona correctamente. Alguna idea? Gracias.

https://drive.google.com/open?id=1ne...V4zJJhX_vwiCKB