如何接受消息，中斷正在處理的過程

　　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(n);
　　    Application.ProcessMessages;
　　    if Interrupt then
　　    begin
　　      memo1.Lines.Add('Interrupt OK');
　　      exit;
　　    end;
　　  end;
　　  memo1.Lines.Add('Button6Click OK');
　　end;