Code:

unit Unit4;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm4 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;

implementation

{$R *.dfm}

procedure TForm4.Button1Click(Sender: TObject);
var
   myForm : TForm;
begin
   myForm := TForm.Create(nil) ;
   try
     myForm.ShowModal;
   finally
     myForm.Free;
   end;
end;
end.

Code:

procedure TButton.OnClick(Sender : TObject);
begin
  Button.Tag := Button.Tag + 1;
  Case Button.Tag of
    1 : Button.Color := clGreen;
    2 : Button.Color := clRed;
    3 : Begin
          Button.Color := DEFAULT_COLOR;
          Button.Tag := 0;
        End;
  end;
end;

Code:

function Buttons_CountForColor(const AColor : TColor) : Integer;
var
  C1 : Integer;
begin
  result := 0;
  For C1 := 0 to Form.ComponentCount - 1 Do
    If (Form.Component[C1].InheritsFrom(TButton)) and
       (TButton(Form.Component[C1]).Color = AColor) Then
      Inc(result);
end;