Problema con memo

[agustin_uni]

Hola club delphi!

Sigo haciendo ejercicios de mi primer tp con delphi,
en este caso es un ejercicio en donde necesito que con un click se me generen, 10 multiplos de un numero.

Lo que hice es lo siguiente( y el problema es que en el memo no se me generan todos los numeros, sino que solo me muestra uno):

Código Delphi [-]
var 
     a,i,b:integer;
  begin
      a:=Strtoint(edit1.text);
    for i:=1 to 10 do
       b:=a*i;
       memo1.lines.add(inttostr(b));
end;

La verdad no se si esta mal programado, o es que el uso que le estoy dando al memo esta mal.. si hubiera alguna sugerencia de la cual pueda sacar provecho para el uso del memo lo agradeceria. gracias!