komponente erstellen: Tlabel

[LoL]

hallo zusammen,

ich versuche verzweifel ein komponente slber zu schriben. ich ich habe scho vieles probiert aber ich schaff es einfach nicht. könnt ihr mir sagen wie ich das machen muss?

Delphi-Quellcode:

unit Rect;

interface

uses
  Windows, Messages, SysUtils, Classes, QControls, QStdCtrls;

type
  TRect = class(tlabel)
  private
    { Private declarations }
  protected
    { Protected declarations }
  public
    Procedure rect;
  published
    { Published declarations }
  end;

procedure Register;

implementation

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

procedure TRect.rect;
begin
  TRect.create(self);
end;

end.

muss ich in der prozedur "rect" irgend was besonderes machen?

danke im vorraus