How to accept messages, interrupt the process being processed

Var Interrupt: Boolean; Procedure TFORM1.BUTTON5CLICK (Sender: Tobject); Begin Memo1.Lines.Add ('Button5Click OK'); Interrupt: = true;

Procedure TForm1.Button6Click (Sender: Tobject); Var i, J, N: Integer; Begin Interrupt: = false; for i: = 0 to 10000 do for j: = 0 to 10000 do begin inc); Application.ProcessMESSAGES If Interrupt Then Begin Memo1.Lines.Add ('Interrupt OK'); EXIT; End; End; Memo1.Lines.Add ('Button6Click OK');