[dec]

Hola,

Si puede ser un bucle "While":

Código Delphi [-]
var
  i: integer;
begin
  i := 2;
  while (i <= 100) do begin
    Memo1.Lines.Add(IntToStr(i));
    i := i + 2;
  end;
end;

O lo mismo de antes, pero, con un bucle "For":

Código Delphi [-]
var
  i,j: integer;
begin
  j := 2;
  for i := 0 to 49 do begin
    Memo1.Lines.Add(IntToStr(j));
    j := j + 2;
  end;
end;