Freeze the code temporarily with Timer

[sebaaller]

Hi! I'd want to can freeze the code by some limited time. The idea is to stop running (for example) an procedure between two lines writing in the middle some code. My idea is that visualy have some changes in the screen but no instantly but with some time in the middle.
Does it have some way to obtain it? Thanks!

PD: Excuse me for my English... i wrote it with some help of google translate.

[taazz]

sleep(100); number is in miliseconds

[laggyluk]

and to avoid interface freeze you can use something like that

Code: [Select]

procedure wait(n:integer);
begin
  while n>0 do begin
    dec(n);
    sleep(10);
    application.processmessages;
  end;
end;

[tr_escape]

Another code:

Code: [Select]

procedure delay(sn : double);
var
  t:double;  // also tdatetime
begin
  t := now + (((1.0/24.0)/60.0)/60.0)*sn;
  repeat
    application.ProcessMessages;
  until now>t;
end;