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; ShowMessage(IntToStr(ii));
end;
Aunque yo prefiero la opción de un bucle:
Código Delphi
[-]
i := 2;
while i <= 20 do
begin
i := i + 2 end;
Y como sabes, también se puede conseguir con el repeat.
Saludos,
EDITO: Veo que dec se me ha adelantado.