unit MyLabelek;

interface

uses
  System.SysUtils, System.Classes, Vcl.Controls, Vcl.StdCtrls, Graphics;

type
  TMyLabelek = class(TLabel)
  private
    { Private declarations }

  protected
    { Protected declarations }

  public
    { Public declarations }
  constructor create(nadawca: TComponent); override;
  destructor Destroy; override;


  published
  property Caption;
  property Color;
  property Font;
  property Align;

    { Published declarations }

  end;

procedure Register;

implementation

constructor TMyLabelek.Create(nadawca:TComponent);
begin
  inherited create(nadawca);
   caption:='MadeByKacperMa©iejewski';
   font.color:=clMenu;
   Align:=alBottom;
   Align:=alLeft;

end;


destructor TMyLabelek.destroy;
begin
  inherited destroy;
end;

procedure Register;
begin
  RegisterComponents('Samples', [TMyLabelek]);
end;

end.