Procesar mensajes/Esperar

[Anel Hernandez]

Hola,

Necesito hacer una accion cada T tiempo y que no se me congele la aplicacion.

Hasta ahora lo hago asi:

Código Delphi [-]
Repeat
 MiAccion;
 Application.ProcessMessages;
 sleep(2000);
Until MiCondicion

funciona bien, pero se me congela los 2 segundos de espera. 2 seg es la cantidad minima a esperar. es posible que deba esperar mas tiempo.

como pudiera mejorar mi codigo?

gracias