Динамическое создание формы

[NaumOff]

В приложении рисую много графиков, решил сделать их динамически создаваемыми.
Сделал форму, на котором рисуется график, создаю его через Button

 MyGraph:= TMyGraph.Create(Application);
 MyGraph.Caption:= 'Новое сообщение';
 MyGraph.Show;

Все нормально.
Но в соответствии с ООП эту форму надо сделать компонентом другого объекта, полностью описывающего график.

 TMyObject = Class
  private
....
    FGraph: TMyGraph;
....

Пытаюсь показать эту форму:

      MyObject.Graph := TMyGraph.Create(Application);
            MyObject.Graph.Caption:= 'График 1';
            MyObject.Graph.Show;

Ловлю AV в методе этой формы Show, где меняются ее размеры.

procedure TMyGraph.FormShow(Sender: TObject);
begin
  MyGraph.ClientWidth := MyChart.Width;
end;

ClientWidth в это момент = nil. Что делаю не так?

[veniside]

MyGraph -- это так и осталась глобальная переменная (или поле), которой теперь ничего не присваивается? Тогда от неё нужно избавиться:

procedure TMyGraph.FormShow(Sender: TObject);
begin
  ClientWidth := MyChart.Width;
end;

[NaumOff]

veniside, мда, стыдно мне.
Вы абсолютно правы, спасибо!