Hat SirThornberry schon alles geschrieben...
Delphi-Quellcode:
Type
TSizeLabel = class (TLabel)
public
constructor Create(AOwner: TComponent); override;
published
property Cursor default crHandPoint;
end;
....
constructor TSizeLabel.Create(AOwner: TComponent);
begin
inherited;
Cursor := crHandPoint;
end;