Замена функции sleep

[alex0097]

Возможно ли заменить sleep? так что бы поток не зависал и не используя Forms, т.к ненужно чтобы размер DLL не был под 400Кб. Может кто-то делал такое?

[kropotkina-alice]

А зачем вы собираетесь использовать SLEEP???

[kutani]

type
  simul = class(TThread)
    procedure Execute; override;
    procedure vcl;
end;
var tsimul: simul;
    sim: boolean = true;
    cnt: integer = 0;
    gl_cnt: integer;

procedure simul.vcl;
begin
 // тут обращения к визуальным формам
 form1.Label1.Caption:= format('%d', [cnt]);
 sim:= true
end;

procedure simul.Execute;
begin
 while true do begin

  while gettickcount-gl_cnt<10 do ; //sleep(10);
  gl_cnt:= gettickcount;

  if sim then begin
   sim:= false;
   inc(cnt);

   Synchronize(vcl);
  end

 end;
end;



Initialization
gl_cnt:= gettickcount;
tsimul:= simul.Create(false);

Finalization
tsimul.Terminate;

end.