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;