[[Delphius]]

Hola douglas,

Hay varias maneras de hacerlo. Una manera sería hacer algo como esto:

Código Delphi [-]
for i := 1 to 10 do
    begin
       ii := i * 2; // Esto garantiza el incremento de dos en dos.
       ShowMessage(IntToStr(ii));
    end;

Aunque yo prefiero la opción de un bucle:

Código Delphi [-]
i := 2;
  while i <= 20 do
    begin
      // hacer algo...
      i := i + 2 //O en su defecto: inc(i,2);
      // hacer otra cosa si es necesario...
    end;

Y como sabes, también se puede conseguir con el repeat.

Saludos,

EDITO: Veo que dec se me ha adelantado.