coloreando un boton

unit ColorBoton;

interface

uses Windows, Messages, SysUtils, Classes, Controls, Forms, extctrls;

// igual sobra alguna unit en el uses

type
TColorBoton = class(TPanel)
private
{ Private declarations }
protected
{ Protected declarations }
procedure MouseDown(Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);override;
procedure MouseUp(Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);override;
public
{ Public declarations }
published
{ Published declarations }
end;

procedure Register;

implementation

procedure Register;
begin
RegisterComponents('ClubDelphi', [TColorBoton]);
end;

{ TColorBoton }
procedure TColorBoton.MouseDown;
begin
inherited;
BevelOuter:=bvLowered;
end;

procedure TColorBoton.MouseUp;
begin
inherited;
BevelOuter:=bvRaised;
end;

end.