Eigenschaft aller Formulare ändern zur Laufzeit

[Hansa]

Delphi-Quellcode:

TBasisfrm = class(TBasisForm)
...
    procedure FormShow(Sender: TObject); override;
  protected
    farbe : TColor; // in Basisform farbe deklarieren
  end;

Delphi-Quellcode:

procedure TBasisfrm2.FormShow(Sender: TObject);
begin
  inherited;  
  Color := farbe;
end;

Mehr ist das nicht, oder doch ? Ich gehe davon aus, dass während des Programmlaufs durch irgendwas die Farbe verändert wird. Ab dann gilt für neu zu öffnende Forms diese Farbe.