Delphi. повторение действия

хочу повторять действие пока кнопку 2й раз не нажмут.

как это сделать ?

примерно могу только придумать:
repeat (действие) until Button1.Click=true;