Números impares desde 1 hasta 1000

[ecfisa]

Hola.

Si, el método Add es muy lento; yo he obtenido buenos resultados operando sobre una variable de tipo string y asignándola luego a la propiedad Text.

Código Delphi [-]
...
begin
   s := '';
  for i := 0 to 499 do
    s := s + IntToStr(2 * i + 1) + CRLF; // (#13#10)
  Memo1.Text := s; 
end;

Resultados para 1000 números usando la propuesta de roman en todos los casos:

Concatenando : 203 µs.
Mensaje      : 261 µs.
Método Add   : 3320579 µs.

Como se vé, ya sea concatenando o usando la cola de mensajes como sugirió escafandra la diferencia es astronómica. Lo que no pude probar son las nuevas herramientas que menciona jhonny, pero supongo que mejorarán mas los tiempos.

Saludos

Edito: Mas o menos como lo que dijo Casimiro mientras componía este