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
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.