Несколько действий на одну кнопку

[include]

Здравствуйте!
Подскажите пожалуйста как задать одной кнопке (button) несколько действий?
Тоесть например по первому щелчку, форма меняет цвет, а по второму щелчку той же кнопки форма закрывается.

[Пепел Феникса]

Button.Tag используйте.

[include]

Можно пожалуйста подробнее? если нетрудно!

[856100]

tag - это свойство компонента Tbutton (это свойство есть практически у всех компанентов) типа Integer.
искодя из вашей задачи, можно предложить следующее решение:

procedure TForm1.Button1Click(Sender: TObject);
begin
  case Button1.Tag of
  0:
    begin
      Form1.Color:=RGB(100,100,100);
    end;
  1:
    begin
      Form1.Close;
    end;
  end;
  Inc(Button1.Tag); //Увеличиваем таг
end;

[Alex Cones]

Inc(Button1.Tag); //Увеличиваем таг

А смысл? Он по идее сам должен инковаться

[Пепел Феникса]

Он по идее сам должен инковаться

это в честь чего?
это св-во вообще не используется компонентами поидее.

[include]

Я что то попрежнему не могу разобраться....Код представленный '856100', не компилится из-за строки Inс(Button1.Tag );.....как сделать это увеличение тага?

[Пепел Феникса]

а заменить Inс(Button1.Tag );
на Button1.Tag:=Button1.Tag+1; никак?

[include]

Все работает!!!
За помощь спасибо всем ответившим!