[delphi.com.ar]

Empezado por Gabel

Sos un genio Roman! (como Riquelme!)

Noo.. Román ClubDelphi es un genio de verdad (Lo rebauticé)

Acá tenés otra opción:

Código Delphi [-]
unit CLabel;

interface

uses
  Classes, StdCtrls, Controls;

type
  TCLabel = class(TCustomLabel)
  protected
    procedure Paint; override;
  public
    constructor Create(AOwner: TComponent); override;
  published
    property Align;
    property Anchors;
    property AutoSize;
    property BiDiMode;
    property Caption;
    property Color nodefault;
    property Constraints;
    property DragCursor;
    property DragKind;
    property DragMode;
    property Enabled;
    property FocusControl;
    property Font;
    property ParentBiDiMode;
    property ParentColor;
    property ParentFont;
    property ParentShowHint;
    property PopupMenu;
    property ShowAccelChar;
    property ShowHint;
    property Transparent;
    property Visible;
    property WordWrap;
    property OnClick;
    property OnContextPopup;
    property OnDblClick;
    property OnDragDrop;
    property OnDragOver;
    property OnEndDock;
    property OnEndDrag;
    property OnMouseDown;
    property OnMouseMove;
    property OnMouseUp;
    property OnMouseEnter;
    property OnMouseLeave;
    property OnStartDock;
    property OnStartDrag;
  end;

implementation

uses
  Graphics;

{ TCLabel }

constructor TCLabel.Create(AOwner: TComponent);
begin
  inherited;
  AutoSize := False;
  Alignment := taCenter;
  Layout := tlCenter;
end;

procedure TCLabel.Paint;
begin
  inherited;
  Canvas.Ellipse(ClientRect); {Modificado el 2208/2006, Orignialmente hacía referencia a BondsRect}
end;

end.

Saludos!