[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;