Array de objetos propios?

[gandalf_uy]

Tengo un problema al intentar hacer un array de un objeto que he creado.

Código Delphi [-]
unit miprueba;

interface

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

type

  TDias = class
     Nombre : String;
     Constructor Crear;
     Destructor Eliminar;
  end;

  TForm1 = class(TForm)
    Label1: TLabel;
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Ventanas : array [1..2] of TDias;

implementation

{$R *.dfm}

constructor TDias.Crear;
begin
     inherited create;
     Nombre := '';
end;

destructor TDias.Eliminar;
begin
     inherited Destroy;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
     Ventanas[1].Crear;
end;

end.

Me compila bárbaro pero al intentar crear el objeto de la primer posición del array me da un error.

Alguna idea de que puede ser?