[mixmann]

Код:

var 
  i,x: integer;
begin
  for i:=0 to 100 do
    begin
      x:=x+1;
    end;
end;

lmikle: Учимся пользоваться тегами.

[lmikle]

Может тебя все-таки интересует другой поток - то бишь нить (TThread)?