Ошибка при работе с классами (Delphi)

[formig]

Всем доброго здравия.

Решал задачку по классам и в упор не могу понять в чём ошибка.
При исполнении, когда записываю в массив - сразу Access violation at adress.

(код сократил до собственно глючащего момента)

TZaDen = class(TObject)
 Gradus:integer;
 Vlagnost:integer;
 constructor Create;
 function ReturnGradus:integer;
 function ReturnVlaga:integer;
 procedure ShowAll;
end;

TzaNDney = class(TObject)
 Nabludenie: array [1..7] of  TzaDen;
 ColNabludenie:byte;
 constructor Create;
 procedure ShowAll;
end;


constructor TzaNDney.Create;
begin
 self.Nabludenie[1].Gradus:=StrToInt(form1.Edit32.text); // тут сразу ошибка
 self.Nabludenie[1].Vlagnost:=StrToInt(form1.Edit33.text);
end;

procedure TForm1.Button25Click(Sender: TObject);
var
 ZaNDney:TzaNDney;
begin
 ZaNDney:=TzaNDney.Create;
end;

Буду очень благодарен, если кто ткнёт носом, что я не так делаю.

[evg_m]

 Nabludenie: array [1..7] of  TzaDen;

а кто будет создавать эти 8 (1..7) объектов прежде чем их использовать

self.Nabludenie[1].Gradus:=

[Stilet]

Добавлю к сказанному что я бы заменил array [1..7] of TzaDen; на надежный TObjectList. Если конечно ТЗ позволяет.

[Serge_Bliznykov]

TzaDen.Create забываете вызвать...

[formig]

О, спасибо всем, ступил я.