请教delphi中输出99乘法表格式总是无法控制请教怎样解决

请问delphi中输出99乘法表格式总是无法控制请问怎样解决
代码是这样的：

procedure TForm1.Button1Click(Sender: TObject);
var
  x,y : integer;
  n : string;
begin
  x := 1;
  y := 1;
  n := '';


  for x := 1 to 9 do

  begin
  for y := 1 to 9 do

  begin
  n := n+inttostr(x)+' X '+inttostr(y)+' = '+inttostr(x*y)+' ';

  memo1.text := n+#10 ;

  end;
  end;
end;

end.

输出以后总是写到memo1组建的边缘，请问怎样才能1*1=1....一直到1*9=9然后换行再重下一行开始2*1=1..一直到2*9=18然后再换行输出呢？


[解决办法]
看看这个是否是你要的:

Delphi(Pascal) code

procedure TForm1.Button1Click(Sender: TObject);var  x,y : integer;  n : string;begin  memo1.Clear;  x := 1;  y := 1;  n := '';  for x := 1 to 9 do  begin     for y := 1 to 9 do     begin       n := n+inttostr(x)+' X '+inttostr(y)+' = '+inttostr(x*y)+' ';     end;     Memo1.Lines.Add(n);     n:='';  end;end;end.
[解决办法]
memo1.wrap:=false;
[解决办法]
Delphi(Pascal) code
{九九乘法表}var  X,Y: Byte;  s: string;begin  Memo1.Clear;  for X := 1 to 9 do  begin    Y := 1;    while Y <= X do     begin       s := S + IntToStr(X) + 'X' + IntToStr(Y) + ' = '+ IntToStr(X*Y)+ '  ';       inc(Y,1);     end;     Memo1.Lines.Add(s);     s :=''  end;end;{1X1=12X1=2  2X2=43X1=3  3X2=6  3X3=94X1=4  4X2=8  4X3=12  4X4=165X1=5  5X2=10  5X3=15  5X4=20  5X5=256X1=6  6X2=12  6X3=18  6X4=24  6X5=30  6X6=367X1=7  7X2=14  7X3=21  7X4=28  7X5=35  7X6=42  7X7=498X1=8  8X2=16  8X3=24  8X4=32  8X5=40  8X6=48  8X7=56  8X8=649X1=9  9X2=18  9X3=27  9X4=36  9X5=45  9X6=54  9X7=63  9X8=72  9X9=81}