delphi for to for downto 用法

procedure TForm1.Button1Click(Sender: TObject);

var

  i: integer;

begin

  for i := 100 downto 1 do

    Memo1.Lines.insert(0, 'Valeur = ' + i.ToString);

end;

procedure TForm1.Button2Click(Sender: TObject);

var

  i: integer;

begin

  for i := 1 to 100 do

    Memo1.Lines.insert(0, 'Valeur = ' + i.ToString);

end;