Faster Dynamic Creation of multiple TShape Components??

Hi,

I am writing an application that requires a 50x60 matrix of TShapes (i.e. 3000 TShapes!) to be displayed on the screen at the same time.  I am currently doing this dynamically, with the following code:

========================================================
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Ar: Array[0..50, 0..60] of TShape;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  i, j: integer;
begin

  for i:=0 to 50 do
    begin
      for j:=0 to 60 do
        begin
          Ar[i][j] := TShape.Create(form1);
          ar[i][j].Parent := form1;
          ar[i][j].Top := 20+(j+(j*10));
          Ar[i][j].Left :=20+( i+(i*10));
          Ar[i][j].Width := 10;
          Ar[i][j].Height := 10;
        end;
    end;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
FORM1.DoubleBuffered := TRUE;
end;

end.
=========================================================

The problem is it takes an awful long time to display them all.  I was just wondered wheather there is a quicker way to do this so they appear almost instantly??

Thanks.