Pongo esto aqui por que es parte de la misma aplicacion, por no abrir un hilo nuevo.
Tengo este codigo en un timer:
Código:
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);
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