Statusbar in Formular, welches in ein anderes Formular eingebettet wird

[AJ_Oldendorf]

Hallo,
ich habe folgendes Szenario:

Form1:
- hat eine Variable auf Form2 und legt im FormCreate eine Instanz von Form2 an und setzt das Parent von Form2 auf Form1

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  tmp : TForm2;
begin
  tmp := TForm2.Create(Application);
  tmp.Parent := Form1;
  tmp.Show;
end;

Form2:
- hat eine Statusbar
- setzt im FormShow die Color der Statusbar

Delphi-Quellcode:

procedure TForm2.FormShow(Sender: TObject);
begin
  StatusBar1.Panels[1].Text := 'Update AUS';
  StatusBar1.Color := clRed;
end;

Schwupps, die Statusbar ist gar nicht mehr da (wenn ich die Anwendung starte).
Setze ich die Color nicht, wird die Statusbar angezeigt.

Habt ihr eine Idee?

Grüße