[delpi12]

как сделать при повторном нажатие кнопки изменился текст , и потом при еще нажатием вернулся первый текст в форме

[M.A.D.M.A.N.]

Код:

procedure button1click(sender:tobject);label a;begin a:;if button1.caption='button1' then button1.caption:='button2' else if button1.caption='button2' then button1.caption:='button1' else goto a;end;