delphi - Increment an integer variable in a loop

Question

I have "i" that is an integer variable and I would like to do a loop that increments the "i" from 40000 to 90000 adding 1000 each time. Each Result will appear in a ComboBox.

Example: 40000 - 41000 - 42000 - 43000 - ... - 88000 - 89000 - 90000

My code is the following:

var i:integer;
begin
 for i:= 40000 to 90000 do
  begin
   ComboBox1.AddItem(IntToStr(i), nil); //until here the code works
   Inc(i, 1000);                         
  end;

Do you have any suggestions?

Answer 1

The alternative to @AndreasRejbrand's solution is a while loop:

i := 40000;
while i <= 90000 do
begin
  ComboBox1.AddItem(IntToStr(i), nil);
  Inc(i, 1000);
end;

or `repeat':

i := 40000;
repeat
  ComboBox1.AddItem(IntToStr(i), nil);
  Inc(i, 1000);
until i > 90000;