1:
2:
3:

type TmyLabel=class(TLabel)
  constructor create(AOwner: TComponent;x,y:integer;farbe:TColor;text:String);
end;					

1:
2:
3:
4:
5:
6:
7:
8:

constructor TMyLabel.create(AOwner: TComponent;x,y:integer;farbe:TColor;text:String);
begin
inherited create( AOwner);
width:=x;
height:=y;
color:=farbe;
caption:=text;
end;					

1:
2:
3:
4:
5:
6:

procedure TForm1.Button1Click(Sender: TObject);
var mylabel:TMyLabel;
begin
myLabel:=TMyLabel.create(self,100,100,clGray ,'test');
myLabel.parent:=self;
end;					

1:
2:
3:
4:

procedure Register;
begin
  RegisterComponents ('Beispiele', [TMyLabel]);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

type
  TMyLabel = class (tLabel)
    Public
      Constructor Create (AOwner: tComponent);
  End;

{...}

Constructor TMyLabel.Create (AOwner: tComponent);
Begin
  Inherited;
  Color := clRed;
End;