Выводить треугольник Паскаля (Delphi)

[tane]

Программа выводить треугольник Паскаля по указанному n-строк.
например,4:
1
11
121
1331
.....

А как сделать,что бы этот треугольник выводить вот в таком виде(рис.12.png)
Вот код

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
function F(x,y:integer):integer;
begin
if (x=1)or(y=1)then F:=1
else F:=F(x-1,y)+F(x,y-1);
end;
procedure TForm1.Button1Click(Sender: TObject);
var n,i,j,k:integer;
begin
n:=Strtoint(Edit1.Text);
for i:=1 to n do
begin
for k:=1 to 2*(n-i)+1 do
label1.Caption:=label1.Caption+ ' ';
for j:=1 to i do
label1.Caption:=label1.Caption + inttostr(F(j,i-j+1))+' ';
label1.Caption:=label1.Caption+#13+#10;
end;



end;


procedure TForm1.Button2Click(Sender: TObject);
begin
Label1.caption:='';
end;

end.

[type_Oleg]

Бедная Label1 ..
Может лучше Memo использовать?

[tane]

Сообщение от type_Oleg

Бедная Label1 ..
Может лучше Memo использовать?

Мне без разницы)

[Mad_Cat]

Может лучше Memo использовать?

Лучше имхо использовать TCanvas