Números impares desde 1 hasta 1000

[roman]

Empezado por jhonny

Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject);
var 
  i :Integer;
begin
   Memo1.Text:='Numeros impares'; //Al usar la propiedad Text reemplazas todo el texto que tenías, por eso 
                                                     //no necesitas Clear acá
   for i := 1 to 1000 do //Recorremos los números que necesitas evaluar, del 1 al 1000
   begin
      if ((i mod 2) = 0) then //Los números divididos por 2 cuyo residuo es 0, son pares.
        Memo1.Lines.Add(IntToStr(i));
   end;
end;

Yo creo que podemos evitarnos el condicional:

Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject);
var 
  i :Integer;
begin
   Memo1.Text:='Numeros impares';
                                                    
   for i := 0 to 499 do
   begin
        Memo1.Lines.Add(IntToStr(2*i + 1));
   end;
end;

LineComment Saludos