[Pascal ABC] Как добавить кнопку и цикл, работающий пока не нажата кнопка?

[HackYou]

Если не трудно, то напишите пример простой программки.P.S. на PascalABC

[Serge_Bliznykov]

Pascal ABC или Pascal ABC.NET ?
и что не получается - кнопка или цикл?

[Plague]

Через таймер наверное лучше будет:

uses FormsABC, Timers;

var
  d: Button;
  t: Timer;

procedure OnTimer;
begin
  // тут что то выполняем
  write('#');  
end;

procedure MyClick;
begin
  t.Stop;
end;

begin
  t := new Timer(1, OnTimer);
  t.Start;
  d := new Button('СТОП');
  d.Click += MyClick;
end.

[HackYou]

Большое спасибо!