Label component

Jeg vil gerne lave et component baseret på TLabel, når jeg "opretter" et component med TLabel som grundsten får man jo en kode som giver et component som er pricist som TLabel...

Min kode:

unit MyLabel;

interface

uses
Windows, Messages, SysUtils, Classes, Controls, StdCtrls;

type
Tlabel1 = class(Tlabel)
private
{ Private declarations }
protected
{ Protected declarations }
public
{ Public declarations }
published
{ Published declarations }
end;

procedure Register;

implementation

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

end.

Mit spørgsmål er så hvordan gør man så der sker et eller andet når componentet bliver oprettet på formen, og hvordan man gør så der sker noget når musen er over labelen, når musen forlader labelen, når musen er trykket ned og når musen går op

mvh.
Lasse Espeholt
webmaster for espeholt.dk