type
TMyCheckBox = class(StdCtrls.TCheckBox)
 private
   procedure CreateParams(var Params: TCreateParams); override;
   procedure CNDrawItem(var Message: TWMDrawItem); message CN_DRAWITEM;
   procedure BMSetCheck(var Message: TMessage); message BM_SETCHECK;
 public
   procedure Draw(DC: HDC);
end;

implementation

procedure TMyCheckBox.BMSetCheck(var Message: TMessage);
begin
 inherited;
 Invalidate;
end;

procedure TMyCheckBox.CNDrawItem(var Message: TWMDrawItem);
begin
 Draw(Message.DrawItemStruct^.hDC);
end;

procedure TMyCheckBox.CreateParams(var Params: TCreateParams);
begin
 inherited;
 with Params do
   Style := Style and not BS_RADIOBUTTON or BS_OWNERDRAW;
end;

procedure TMyCheckBox.Draw(DC: HDC);
var r: TRect;
   Flag: integer;
begin
 R := ClientRect;
 Flag := DFCS_BUTTONPUSH;
 if Checked then Flag := Flag or DFCS_PUSHED;
 DrawFrameControl(DC,R,DFC_BUTTON,Flag);
 DrawText(DC,PChar(Caption),Length(Caption),R,DT_CENTER or DT_VCENTER or DT_SINGLELINE);
end;