threadproc()
{
  while (1)
  {
    ...
    //делаем что надо
    Sleep((unsigned long)1000);
    Application->ProcessMessages();
  }
}

То проц грузится на 100% этой процедурой. Как можно осуществить периодический запуск этой процедуры с интервалом, например, раз в секунду?