Остановить длинное действие
Эта программа останавливается при нажатии на Button2. procedure TForm1.Button1Click(Sender: TObject);begin
randomize;
Form1.Tag := 0;
repeat
Form1.Canvas.Pixels[random(Form1.ClientWidth), random(Form1.ClientHeight)] :=
RGB(random(255),random(255),random(255));
Application.ProcessMessages;
until Form1.Tag > 0;
end; procedure TForm1.Button2Click(Sender: TObject);
begin
Form1.Tag := 1;
end;