循环陷阱

var

  i,j: Word;

begin

  j := 0;

  for i :=0 to j -1 do

    ShowMessage('无穷无尽，没有尽头。。。');

end;