[roman]

Así a bote pronto, yo diría que en el constructor de la componente:

Código Delphi [-]
constructor TLaComponenteDePascalutn2003.Create(AOwner: TComponent);
begin
  if (AOwner is TForm) then
    Self.Color := TForm(AOwner).Color;
end;

// Saludos