delphi for循环

  for   i:=0   to   100   step   4   do 
  begin   
  ... 
  end;