[Decoding]

Сообщение от Keygenmusic

смотря какие действия, а если там слип на секунду? без потока никак тогда.

Никогда не говори "никак"!!! Sleep() можно реализовать ручками, например так:

Код:

var
  t: Cardinal;
begin
   {
      Делай что надо
   }
   // Потом Sleep на секунду
   t := GetTickCount;
   while GetTickCount-t < 1000 do
      Application.ProcessMessages;
   {
      И спокойно работай дальше
   }
end;

И никакой поток тебе не нужен.