Form zur Laufzeit, FormShow

[LoL]

Morgen ,

Ich habe mir mit Neu=>Formular ein Form gemacht darauf ein parr Knöpfe usw platziert. Nun erstelle ich mit

Delphi-Quellcode:

var frm_open : Tfrm_meinForm;
begin
  frm_open := Tfrm_meinForm.Create(frm_main);
  frm_open.ShowModal;
end;

Funktioniert auch soweit wunderbar.
Jetzt wollte ich beim öffenen des Forms noch ein paar Komponenten ausrichten:

Delphi-Quellcode:

procedure Tfrm_meinForm.FormShow(Sender: TObject);
begin
  tc_graphen.Height := frm_meinForm.Height - 40; //Bekomme hier schon eine Exception da frm_meinForm.Height nicht gelesen werden kann
end;

Kann mir jemand helfen und sagen woran das liegt?