1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:

{01} unit FarbLabel1;
{02} 
{03} interface
{04} 
{05} uses
{06}   Windows, Messages, SysUtils, Classes, Controls, StdCtrls;
{07} 
{08} type
{09}   TFarbLabel1 = class(TLabel)
{10}   private
{11}     { Private declarations }
{12}   protected
{13}     { Protected declarations }
{14}   public
{15}     { Public declarations }
{16}     constructor Create(AOwner: TComponent); override;
{17}   published
{18}     { Published declarations }
{19}     property Color default clYellow;
{20}   end;
{21} 
{22} procedure Register;
{23} 
{24} implementation
{25} 
{26} constructor TFarbLabel1.Create (AOwner: TComponent);
{27} begin
{28}   inherited Create(AOwner);
{29}   Color := clYellow;
{30} end;
{31} procedure Register;
{32} begin
{33}   RegisterComponents('Übung', [TFarbLabel1]);
{34} end;
{35} 
{36} end.