[[nightynvid]]

mmmm no se si en este caso sea lo mejor pero para ayudarte con unos conceptos antes que sigas leyendo:

en un ciclo por ejemplo el do while que quieres utilizar a cada vuelta se le llama iteracion.

asi en un do while

Código Delphi [-]
 var
  numero : Integer;

 begin
  numero := 1;

While numero <= 100 do
  begin
   // se puede hacer de mas formas pero para ejemplificar
   num:=num+1

  end;
end;

el ciclo se ejecutara MIENTRAS que se cumpla la condicion numero <= 100

ahora te toca ver como añadir el texto al memo sabiendo como se incremento el numero en el ciclo

como te mencionaron antes hace falta que leas un poco mas, programar solo se aprende estudiando , leyendo y sobre todo practicando, si no entiendes algo haz ejemplos mas simples hasta que llegues a lo que necesitas.