[lkz_07]

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

должно, по идее...

За основу: http://www.delphisources.ru/pages/so...generator.html

Мой вариант:

Код:

mass := [1000, -1000, 2000];

for i := 0 to Length(mass)-1 do begin

if mass[i] > 0 then begin
  ServiceThread := TServiceThread.Create(False);
  sleep(mass[i]);
  ServiceThread.Terminate;
                    end;

if mass[i] < 0 then sleep(mass[i]);


                                 end;

но использовать sleep нельзя!